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Description 



FIELD OF THF iNVFMTinM 
BACKGROUND TP T HE INVFNTIOKI 

20 Sna^s^ 

uncovered, and the" program c'omp ate JZ tt n ^t^w ianZae bIT ^ ^ Pr ° 9ram mUSt be 

generally very time consuming and therefore costly 9 9 * UnC ° Venn9 ^ reWitin9 pr ° CeSSeS are 

2 5 SUMMARY OF THE INIVFNTIOM 

- Km l a Se d s: nCe ^ 3 ^ ° f *»* information of a legacy app,ica,on 

(a) parsing an application program to obtain plural parsed program parts 

1 L 8 Sa n s 9 e P ' Ural t0kenS C ° mm0n t0 Simi ' ar ™<™ P arts <* -rious computer languages in 

S C^^K^SS 8 3 m ° d ! fied ,69aCy aPP ' iCa,i0n ' 3 aPP ' iCati0n in 3 Same ">W - 
aspecSthe^ *» *• *™ • <or c^y of 

BRIEF DESCRIPTION! nc THE DRAWINGS 

m«i A better understanding of the invention wil, be obtained by a consideration of the detai.ed description below, 
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in conjunction with the following drawings, in which: 



Figure 1 is a block diagram of the preferred embodiment of the invention, 

Figure 2 is a block diagram of a preferred embodiment of an engineering interface which is used in the embodiment 
5 of Figure 1 , 

Figure 3 is a representation of a portion of a data model, 

Figure 4 is a representation of portions of the data model that represents navigator data structures in more detail, 
and 

Figure 5 is a screenshot of a tree view for the preferred embodiment of the invention. 



DETAILED DESCRIPTION OF A PREFERRED EMBODIMENT 
[001 1 ] A glossary of terms used in the description below follows: 



15 ANSI 
API 

Application 



Application Metadata 
20 Borland Interbase 



COBOL 
Data Model 



25 Data Structure 



Grammar 

Legacy Application Program 



Metadata 
ODBC 

Oracle RDBMS 

35 

Parser 

PL/SQL 

40 PowerHouse 
RDBMS 

Relational Database 
Repository 

45 Reverse Engineering 

SQL 
Symbol 
Token 
so Transaction 

Tree View 

User Interface 

55 

Visual Basic 
YACC 



American National Standards Institute 
Application Programmatic Interface 

A series of inter-related programs which, when used together, automate a solution for 
a business problem 

Data which describes the objects and methods of an application 
A Commercial Relational Database Management System owned by the company cur- 
rently known as Borland 
Common Business Oriented Language 

A representation of the data structures and relationships between these data struc- 
tures which describe a business application 

One or more data elements in a particular data relationship usually used to describe 
A syntactical representation of a programming language 

An older application (usually written in a third generation language which automates a 
business function or functions 

A commercially available software application which is used to tokenize strings in a 
human readable text file(s) (Lexical Analyzer) 
Data which describes the structures in a database 
Open Database Connectivity 

A Commercial Relational Database Management System owned by the company cur- 
rently known as Oracle Corporation 

A computer program which is used to break down the grammar of a particular compu- 
ter programming language 

A computer programming language known as Procedure Language Structures Query 

Language commercially owned by Oracle Corporation . 

A fourth generation programming language owned by Cognos Corporation 

Relational Database Management System 

A data base constructed out of normalized data structures 

A relational database used to store the metadata and application metadata of a busi- 
ness computer application 

The process of decomposing the objects and methods which make up a computer pro- 
gram into a format easily understandable by a person 
Structures Query Language 
A numeric representation of an entity 
An individual object in a repository 

The logical grouping of objections on a database that can be performed or undone 
against a relational database 

A user interface which operates on the same principals as Microsoft Explorer™ inter- 
face 

A computer display operated by the user of an application to facilitate the usage of the 
application 

A computer language owned by Microsoft Corporation that is used to build Windows 
Based Applications 

Yet another Compiler Compiler. A program which aides in the development of compu- 
ter parsers usually coupled with the grammar of a computer language. 
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[0012] Turning to Figure 1 , a parser 1A is used to break out the various parts of a legacy application program 3A 
indeed, ,s preferred that plural parsers i A - 1N should be used in the invention, each one corresp^ ng to a d^rem 

leZ: ' a : 9ua9e ' e * cobol ;:° w - h °- . "*>*■».. ^ SQL , T h US PIograms 3A . jj^^^s 

legacy language may be parsed by a corresponding parser. 

S ♦ ParS6r S °T! he ' egaCy a PP |ication P r °9 ram . and ^cesses a corresponding knowledge base 5A - 5M 
specie to its language, wh,ch stores representations of every command and option available in the source program Ian 
guage i.e. ,ts grammar" to enable it to parse a program having source code written in its language. The^egacy code 

decomposed ,nto ,nd,v,dual objects and their associated methods, based on the knowledge base 
Zltl w TrH IT 7 T b ™ neSS mleS 9enera,ed by the Parser are in the form °< st ^dard tokens for all 
h ^ a » ro n?e^« 7 wh^ SO t° rf nS ,dered ln f mediatefi,es which are reada ble by the application interface API, and which 
ard toklns n a reLTd n 3CeS ! T^f " MaSe 9 ^ rep ° Sit0ry) - The re P osito ^ stores ^ ^nd- 

o Iram tf ' ° h * da ' abaSe for ^ partiCU ' ar le9acy P ro 9 ram which has b ^ parsed. The parsed 

rnn?^ >I f T T ™ PPed '° corres P ondin 9 °nes of plural common tokens in the repository. 
!p L n f 3 iS 3 P n ferred ^ 0< mappin9 the Pr ° gram parts t0 corresponding common tokens, alterna- 

mon^pnJ S / n TT? ° f *° ^ C ° mm ° n t0kens are used for a " le 9 ac V lan 9uages. These com- 

mon ofthP | P 7 f ° r r6VerSe en9ineerin9 ° f 3 le93Cy pr ° 9rarn ' documentation, for recre- 

a ion of the legacy program w,th modification, and for creation of a new program in the same language as the legacy 

sztrr than the le9acy program ' to provide me same tasks the ,egacy appiicati ° n - s ^ 
aCemeZ^ 

[001 7] An engineering interface 1 3 stored on another computer (or on the same server) is coupled to the database 9 

am o'Z t Pr ° V : ded 5 ^ aPP ' iCati0n fr ° nt CTd 7 - ThiS a " 0WS 3 USer t0 access the -°rds speci'c to a p 0 
gram, to modify it, to obtain the stored data to provide to another application design program 17 (eq Oracle 

Sagt } t0 Crea,S 3 m ° di,ied ,e9aCy aPP ' iCa,i0n Pr09ram ° r t0 Crea,e a ™ appLionprogram in adiSem 



ecords from 2 hIh o *T' en£ " neerin9 interface accesse ^ »e desired legacy application program 
IranZ^lutT ™ ° W ^ * ^ pro9ram 17 and commands it to 

T n fn ? T , Pr ° gram ' n 3 d,fferent lan9Uage: l( can be instructed ^ the application designer to modify 

a I of a particular parameter (such as a two digit date indicator token to four digits), while creating a new application pro 
gram using the same design rules indicated by the common tokens used in the translated legacy application The new 
appteaton program can be in the legacy language, resulting in the automatic correction of the d te n he legacy appT 
aWld ' he > ear 200 °" problem described earlier. As the newly reconstituted program is being cSd 
T^orZ Z " h T^" 9 in,erfaCe 13 f ° r Ch6Cking the reCreated tokens ^ th °se designated 
rected ™ 9 t0 ' e9aCy application ' 80 that errors in »he recreated program can be cor- 

used'in JTJZ«™2° n t0ke T ^ US6d " 3 re ' ati0nal d3tabaSe Where the tokens re P resent «~ elements 
used in all or at least a large number of programs. The database 9 (repository) memory 8 not only stores the tokens 

[0021] In respect of parsers relating to particular languages- 

S fPDlf TX h Z~u erHO n e ParSe ? C ° mPriSed ° f f ° Ur sub "P arsers ' incl "ding the Powerhouse Dictionary Lan- 
guage (PDL), the PowerHouse Reporting language (QUIZ), the PowerHouse batch update language (OTP) and the 

used to m a S nth 0r p S M 9Ua9e (QDES ' GN) ' EaCh ° f th6Se sub - |an 9-ges includes a separate knowL e ba e haH 
used to map the PowerHouse language to the API 5. 

I 0 QrDlJSvrrn O a L nH P p Ser ^'n Sn9ineer ^ C ° B0L C ° de inC ' Udin9 (but n0t ,imited to ) the Working Stor- 
?00 2 4^ For I ° u Pr ° C6dU ? DmS,0nS 98 we " as the ap P |ication '°9ic coded in the legacy application. 
Sl Parse fn ^ f b ^ d a PP llCatlons use B ° r| and Interbase as a database manager, the Borland Interbase 
S nlin„ , 7 7 , ^ USed '° *" ^ ir0m databases usin 9 ^ technology. The parser is capable 

of parsing all relational objects that can be defined in a Borland Interbase schema including (but not limited to) Sela 
tana f tables, Relational Fields, Indexes, Index Segments, Triggers, Procedures as we,, as Database ^wl ' 

SQL Parse'shluldbeSr 3 "1 S ° L ^ d6finiti ° n ' angUage ,0 Cr6ate their le 9 ac V ^DBMS, an ANSI 
SQL Parser should be used to recover the design from databases using this technology. The parser should parse all 

InlSamiTT ' ^ * ^ * * ^ S ° L 8Che ™ ™ M ^ Relationa ' ™d f n 7e e ' 

Index Segments, Triggers, Procedures as well as Database Views. 
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[0026] The common dialect of the present embodiment is a language referred to herein as the Chameleon API. The 
primary purpose of each language parser is to read the legacy source application file and to re-write the legacy code 
into the Chameleon API language. Once this has been completed, the re-written module is then loaded into the repos- 
itory using the front end (loader) 7. 
5 [0027] The heart of this embodiment is the database 9 repository. This is the area in which all the application and 
database objects, methods and business rules generated is physically housed. 

[0028] The database 9 repository stores information and business rules for business and data services, as well as 
user interface and appearance control for user services. This environment independent information is preferably stored 
in an ODBC compliant design database and is intended to be used when building an application. The use of an open 
w repository enables iterative design and reuse and meets multi-developer requirements. Code is generated from design 
information in the database 9 repository. 

[0029] The results of the design activities include a data model, business rules and design information and application 
preferences which are stored in the database 9 repository. 

[0030] A database metadata 1 9 section of the database 9 repository is used to store the data definition attributes of 
15 the legacy application. This area of the database 9 repository preferably stores information about the following objects: 

Nodes 

Database Roles 
Databases 
20 Domain Drop Downs 
Domains 

Element Drop Downs 

Element Permissions 

Elements 
25 Index Segments 

Indexes 

Lookup Tables 

Relation Elements 

Relation Permissions 
~30 Relations 

Sequences 

Stores Procedures 

Structures 

Template Drop Downs 
35 Templates 

Trigger Elements 

Triggers 

User Roles 

Users 
40 View Sources 

[0031] An application Metadata 21 section of the repository is used to store the objects, methods and business rules 
associated with the legacy application. This area of the database 9 repository stores information about the following 
objects: 

45 

Assignment 
Blob 

Block of Code 

Called Module 
so Node 

Node Element 

Node List 

Node Select 

Node Sort 
55 Comment 

Condition 

Condition Detail 

Coordinate 
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Core Function 
Core Function Xref 
Core Message 
Cross Reference 
5 Cursor 

Cursor Key 
Database Update 

Event Detail 
'0 External 

Field Property 
Field Value 
Function 
Highlight 
Highlight Detail 
Index Segment 
Legacy Source 
Literal 
Log File 
Lookup 
Message 
Method 
Module 
Object 
Panel 

Panel Graph 
Passing List 
Procedure 
Procedure Detail 
Project 

Project Directory 
Receiving List 
Relation 

Relation Access Field 
Relation Accesses 
Relation Field 
Relation Index 
Report Section Table 
Report Tables 
Screen Property 
Sort Option 
Stack 

Stack Detail 
Stored Procedure 
Suminto Operation 
Transaction 
Transaction Relation 
User 
Variable 



API Functions 
API Parameters 
Element Usages 
Functions 
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Function Inputs 

Function Options 

Function Results 

General Terms 
5 General Term Keywords 

General Term Keyword Options 

Keywords 

Keyword Options 

Keyword Option Defaults 
10 Procedures 

Procedure Options 

Verbs 

Verb Options 
Table Types 
15 Table Values 

[0033] The primary responsibility of the API loader 7 is to load the intermediary files created by the parsers into the 
database 9 repository. Each API loader script that is read and parsed should be checked for correctness and validated 
against the data already loaded. If any conflicts arise, the entire transaction should be rolled back and an error written 
20 to a log file. Otherwise, the API loader creates the appropriate objects for the database 9 repository. 

[0034] The engineering interface 13 is for use by application developers to navigate around the various objects and 
methods of the application; to report on, analyze as well as to refine the extracted business information housed by the 
database 9 repository. A more detailed block diagram of the preferred form of engineering interface is shown in Figure 
2. 

25 [0035] A database navigator 25 is preferably a Microsoft Explorer™ style interface to the objects that make up the data 
dictionary and physical database of the legacy application. This interface allows the developer to drill to detail on objects 
such as relational tables, database views, stored procedures as well as triggers. In addition to the navigational capabil- 
ities of this interface, it allows the developer to enhance and modify the underlying physical structure of the database 
by adding, deleting and modifying the attributes that make up the database component of the legacy application. 

30 [0036] Similar to the database navigator, an application navigator 27~allows the developer to drill down on the func- 
tional modules that make up the application including Screens, Reports and Batch Processes. Using this interface the 
developer, analysts and end users can quickly pinpoint objects located within the module and make any adjustments 
necessary. This component also preferably includes an editor, which allows you to view the business rules expressed 
in your application in, for example, a Microsoft style notepad editor. 

35 [0037] If the legacy application contains a menu style interface, the engineering interface preferably automatically rec- 
reates this system to display or print the hierarchy of the application. This allows IT developers and business users to 
quickly navigate to the module they need to see at the click of a button. 

[0038] An impact analysis module 29 should provide features that allow assessment of the impacts of making 
changes to the existing and new application. This modules should include an impact analysis navigator as well as pro- 
40 vide a number of standard reports that allow review of the impacts based on any object in the database repository. This 
should include for example the ability to assess the impact of removing database fields, the ability to determine any bot- 
tlenecks that may be present in the current application, etc. 

[0039] Because the design recovery process has been automated, the speed at which the information is loaded into 
the repository is only limited by the speed of the hardware on which this invention operates. In addition, because lan- 
45 guage specific parsers are used, they must understand the complete grammar of the legacy source language in order 
for the process to be successful. Because of this, all the important objects, methods and business rules coded in the 
legacy application should be captured. 

[0040] A forward engineering application 31 is preferably used to rebuild the legacy application, and forward engineer 
reports, screens and batch processes to a number of computing platforms including PL/SQL, Visual Basic and Dynamic 
50 C modules for batch processes. 

[0041] An application designer 1 7 bridge is preferably also used to load the application directly into Oracle's Designer 
2000, once the legacy application has been loaded into the database repository 9. 

[0042] All of the elements 25, 27, 29, 31 and 1 3 interface the application front end 7 and its window 1 7, to access the 
database 9 depository. 

55 [0043] The invention can be operated on a server preferably comprised of an IBM compatible computer which uses 
a Pentium I ™ or Pentium II ™ processor, to which 128 MB of random access memory is coupled, and to which a hard 
disk drive (or equivalent) is also coupled comprising at least 1 GB of memory space, and on which the programs Win- 
dows 95 ™ or Windows NT ™ and Oracle ™ 7 or 8 are resident. The repository containing the parsers, knowledge base, 
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API application front end are stored on the hard disk drive. The engineering interface can be operated by a similar com- 
puter which is ,n communication with the server, the engineering interface being comprised preferably of at least a Pen- 

ealalent! STJLm^** '° " " MB * rand ° m aCC6SS m6m ° ry iSC ° UP ' ed ' and a hard disk drive <° r 
equivalent) with at least 1 GB of memory space. The latter computer preferably also should have Windows 95 or Wi- 
dows NT 4.0 resident on its hard disk drive. However, other computers and programs can be used, as long as they are 
capable of carrying out the methods described herein. 



[0044] The following is a detailed example of processing of a typical PowerHouse source language program file The 
example provided represents a typical, but simplified version of a PowerHouse QUIZ program 
ITIL T 4 hlS K exam P ,e P rovides fo^ QUIZ commands. The first statement indicated that a table named ORDER in the 
bALhS database is to be read. The second statement is the definition of a variable called D DISCOUNT that is used 

Ltd on , th 9 d ; SC r t h ° n , al ' ° rderS ° Ver $10 '° 0a The third S,atement is used t0 ide ^ th e formation to be 
printed on the report while the last statement is used to identify the compiled name of the program. 

A. SAMPLE QUIZ SOURCE CODE 

ACCESS ORDER IN SALES ALIAS SALES_98 

[0046] 

DEFINE D_DISCOUNT NUMERIC * 7 = & 

(ORDER_AMT * (7/100)) & 

IF ORDER_AMT > 10000 ELSE 0 

REPORT ORDERJD ORDER_AMT D_DISCOUNT 

BUILD ORDERREP 

[0047] The following follows the above example through the various processes that have been described above. 
S. KNOWLEDGE BASE DATA/STRUCTURES 

Sinn t C iT rS f ' 18 Creat9d Preferab ' y USin9 Yet An ° ther C ° mpiler Compiler < YACC ) and a Lexica ' An a'yser (Lex). 
In addition to these two components, the parsers should incorporate a third component, a knowledge base (KB) to store 
the mapping of the keywords that make up the various commands in the source language as well as to map to the appli- • 
been p SJ (AP ° fUnCti ° nS 3nd P arameter s that are to be invoked once a grammar rule in YACC has 

[0049] The following section describes four of the main tables that make up the KB. 
B.1 KBKEYWORD 

[0050] The KBKEYWORD table is used to store all the command keywords in the PowerHouse source lanquaqe In 
tnis example, there are four command keywords present; ACCESS, DEFINE REPORT BUILD 
K ] v The K BKB ™° R ? | able is used to st °re all the keywords available in Powerhouse and is made up of three 
fields, Yacc_Keyword_Symbol, Keyword_Name and Lookaheadjbken. Each of these fields is described as follows: 

Yacc_Keyword_Symbol:This field stores the actual command symbol used in the YACC grammar specification These 
correspond to the %token commands specified in the grammar file. 

Keyword.Name: This field stores contains the actual string found in the legacy source code of the keyword that 
will be mapped by the Lexical Analyser (Lex). This field is actually used to lookup the token 
returned by Lex against the KBKeyword table. Once a valid match is encountered the 
Yacc_Keyword_Symbol is returned to Yacc by Lex. 

Lookahead_Token: This field stores a symbol which represents whether the next token after the keyword is read is 
an identifier or not. 
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Yacc_Key word_Sy m bo I 


Keyword_Name 


Lookahead_Token 


K.ACCESS 


Access 


IDENTIFIER 



B.2 KBKEYWORD OPTION 

10 [0052] The KBKEYWORD_OPTION table is used to store all the keyword options available in the PowerHouse source 
language for a particular command keyword. In this example, the ACCESS statement contains a keyword option called 
ALIAS. 



Yacc_Keyword_Symbol:This field stores the actual keyword symbol used in the YACC grammar specification. 

Yacc_Option_Symbol: This field stores the actual keyword option symbol used in the YACC grammar specifications 
that represents an option on a command keyword. 

Keyword_Name: This field contains a string representing the Powerhouse Keyword option that is read by Lex. 

This field is actually used to lookup the token returned by Lex against the KBKeyword_Option 
table. Once a valid match is encountered, the Yacc_Option_Symbol is returned to Yacc by Lex. 

Lookahead_Token: This field stores a symbol which represents whether the next token after the keyword option is 
read is an identifier or not. 



Yacc Keyword Symbol 


Yacc Option Symbol 


Keyword Option 


Lookahead Token 


K_ACCESS 


ALIAS 


Alias 


IDENTIFIER 


K_ACCESS 


ANDX 


And 


NOTIDENT 


K_ACCESS 


IN 


In 


NOTIDENT . 


K_ACCESS 


LINK 


Link 


NOTIDENT 


K_ACCESS 


OF 


Of 


IDENTIFIER 


K_ACCESS 


OPTIONAL 


Optional 


NOTIDENT 


K_ACCESS 


RECORD . 


Record 


NOTIDENT 


K_ACCESS 


TO 


To 


NOTIDENT 


K_ACCESS 


VIAINDEX 


Viaindex 


NOTIDENT 



B.3 KBAPLFUNCTION 

45 

[0053] The KBAPLFUNCTION table is used to store a mapping of all the API functions that can be called by the 
Parser. This table is made up of two fields; Api_Function_Symbol and API_Function_Name. Each of these fields are 
described as follows: 

so Api_Function_Symbol: This field stores the actual function symbol used in the API specification. This is the actual field 
that is used to lookup against this table. 
Api_Function_Name: This field stores the name of the API function that is to be invoked by the parser once a gram- 
mar rule has been processed. 
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Api_Function_Symbol 


Api_Function_Name 


_RPACCESS 


iu_rpaccess 



B.4 KBAPI_PARAMETER 

ApLFunction_Symbol, API_Parameter_Symbol 
Api_Parameter_Name1 and ApLParameter_Name2. 

ApLP„a™,„_ Name , : Thl! feM slorBS , he ^ ^ ^ ^ ^ ^ ^ ^ ^ 



Api Function Symbo 


Api Parameter Symbol 


Api Parameter Namel 


Api Parameter Name2 


_RPACCESS 


_ACCESS_NAME 


P_access_name 


P_access_name 


_RPACCESS 


_ALIAS_NAME 


p alias name 


p_alias_name 


_RPACCESS 


_AUTOCOMMIT_FLAG 


p_autocommit flag 


p_autocommit flag 


_RPACCESS 


_AUTOLINK_FLAG 


p_autolink_flag 


p_autolink_flag 


_RPACCESS 


_BACKWARDS_FLAG 


p_backwards_ flag 


p_backwards_ flag 


_RPACCESS 


_DATABASE 


p_database_name 


p_database_name 


_RPACCESS 


_GENERIC_FLAG 


P_generic_flag 


p_generic_flag 


_RPACCESS 


JNDEX_NAME 


p_index_name 


p_index_name 


_RPACCESS 


JJNKAGE_TYPE 


pjinkage_type code 


p_linkage_type code 


_RPACCESS 


JMAME 


p_relation_name 


p_relation_name 


_RPACCESS 


_OPTIONAL_FLAG 


p_optional_flag 


p_optional_flag 


_RPACCESS 


_ORDER_TYPE_CODE 


p_order_type code 


p_order_type code 


_RPACCESS 


_ORDERED_FLAG 


p_ordered_flag 


p_ordered_flag 


_RPACCESS 


_PHYSICAL_NAME 


P_physical_name 


P_physical_name 


_RPACCESS 


_SEQUENTIAL_FLAG 


p_sequential flag 


P_sequential flag 


_RPACCESS 


_UNIQUE_FLAG 


P_unique_flag 


p unique flag 


_RPACCESS J 


_WARNING_FLAG |~ 


p_nowarn_flag 


p_nowarn_flag 



C. LANGUAGE GRAMMAR FOR THE QUIZ ACCESS STATEMENT 

[0055] The following is a representation of a portion of the grammar that is used to parse and process the ACCESS 
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statement in the source file of the example given above. 

K_ACCESS data_structure_ref opt_alias 
{ 

keyword = _RPACCESS ; 

/* Don't bother writing out the a iu_rpmodule for the 
first */ 

/* access statement as this was beformed by the extended 

*/ 

/* BEGIN MODULE rule. 

*/ 

++ctr . access_id ; 

ctr . block_seq_no = 0 ; 

load_block_id ( &ob ject_hdr_itero , ++ctr . block_id , 
++ctr.block_seq_no) ; 

iu_rpaccess( Sob ject_hdr_i tern, ctr . access_id, 
data_structure_str, $3, NULL, NULL, FALSE, 

physical_f ile_name, access_subf ile_f lag) ; 
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•primary_relation = current_ohdr; 
current_relation = current_ohdr ; 



} 



opt_alias: 

/* empty */ 
I ALIAS id 



{ 5$ = NULL ; } 
{ $$ = $2 ; } 



_structure_ref : 
table ref 



NULL) 



data_structure_str = encode_data_structure(Sl, 

access_subf ile_f lag = FALSE ; 
physical_fiie_naine = NULL ; 
$$ = data_structure str ; 



$3) ; 



table_ref IN database_ref 
{ 

data_structure_str = encode_data_structure($i, 

access_subfile_flag = FALSE ; 
physical_f ile_name = NULL ; 
$$ = data_structure str ; 



rule * 
NULL) 



*' filespec_ref 

/* Note: physical_fiie_nam e set in filespec_ref 
data_structure_str = encode_data_structure ($2 , 
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access_subf ile_f lag = TRUE ; 
$$ = data_structure_str ; 

} 

| owner_ref ' . ' table_ref 
{ 

data_structure_str = encode_data_structure ( $3 , 

NULL) ; 

access_subf ile_f lag = FALSE ; 
physical_f ile_name = NULL ; 
S$ = data_structure_str ; 



| owner_ref ' . 1 table_ref IN database_ref 
{ 

data_structure_str = encode_data_structure ( $3 , 

S5) ; 

access_subf ile_f lag = FALSE ; 
physical_f ile_name = NULL ; 
$$ = data_structure_str ; 



table_ref : 

id { $$ = $1; } 



database_ref : 
id 



owner_ref : 

id 



id: 
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IDENTIFIER { $$ = $ 1; } 



D. ■C'API LIBRARY FOR THE IU_RPACCESS FUNCTION 
[0056] T ^°''°wing«^^ 

/* 

*/ 

/* 

iu_rpaccess ( ) 

*/ 

/* 

— A/ 

int iu_rpaccess( struct object_hdr * P _objectJidr_ite I n, int 
P_access_id, char *p_relation, char *p_alias, char 
*P_linkage_ty P e, char *p_optional, int p_autolink, char 
*p_physical_name, int p_subf ile_f lag ) 
{ 

char access_name [MAXFIELDSIZE] = • 
char database_name [MAXFIELDSIZE] = '"' • 
char relation_name [MAXFIELDSIZE] = •"• ; 
char ob ject_name [MAXFIELDSIZE] = •"■ ; 

if (g_debug_switch == i) 

printf ( « iu_rpaccess (p_access_id=%d , p_relat ion=%s 
p_alias=% s , p_linkage_type=%s, p_optional=% Sf 

P_autolink=%d, p_physical_name=% S/ 
p_subfil e _flag=%d) \n", 

p_acces S _id, p_relation, p_ali as , p_linkage_t yP e, 
P_optional, p_autolink, p_physical_name, 
p_subfile_flag) ; 

sprintf (access_name, »ACCESS%d», p_access_id) ; 
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strcpy (relation_name, gettoken (p_relation, _LEFT) ) 

if ( p_subfile_f lag == FALSE ) 
{ 

strcpy ( da tabase_name, gettoken (gettoken (p_relation , ' 
' , _RIGHT) , • - • , _LEFT) ) ; 

if (strlen(database_name) == 0) 

{' 

/* Check to see if it has already been declared by 
looking */ 

/* up on object_hdr 

*/ 

strcpy (database_name , lookup_ob j ect (relat ion_name , 
_RPRELATION , _DATABASE) ) ; 

if (strlen(database_name) == 0) 

strcpy (database_name, "Non Relational") ; 

} 

} 

else 

strcpy (database_name, "Temporary Data") ; 

if (p_alias == NULL) 

strcpy (object_name, gettoken(p_relation, _LEFT) ) 

else 

strcpy (object_name, gettoken (p_alias, _LEFT) ) ; 

load_object_hdr (p_object_hdr_item, _QUIZ, _RPACCESS, 
g_project_narae, g_module_name , 

database_name , gettoken (p_relation , _LEFT) , 

object_name, 

decode (_OBJECT_TYPE, "rprelation") , _RPRELATION) ; 
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push_object_hdr (p_object_hdr_item ) ■ 

write_obj_detail(_RPACCESS, _ACCESS_NAME, access_name 
_QUOTE) ; 

if (p_alias != NULL) 

write_obj_detail(_RPACCESS, _ALIAS_NAME, p_alias, 
_QUOTE) ; 

if ( p_subf ile_f lag == TRUE ) 
{ 

write_ob j_detail (_RPACCESS , _PHYSICAL_NAME, 
p_physical_name , _QUOTE) ; 

w rite_obj_detail(_RPRELATION, _RELATION_TYPE, 
decode (_RELATION_TYPE, "subfile") , _QUOTE) ; 

} 

if (p_linkage_type != NULL) 

write_obj_detail(_RPACCESS, _LINKAGE_TYPE, 

decode (_LINKAGE_TYPE, p_linkage_type) , _QUOTE) ; 

if (p_optional != NULL) 

write_obj_detail (_RPACCESS, _OPTIONAL_FLAG, 
decode(_FLAG, p_optional) , _QUOTE) ; 

if (p_autolink == TRUE) 

write_obj_detail (_RPACCESS , _AUTOLINK_FLAG, 
decode(_FLAG, "TRUE"), _QUOTE) ; 

write_obj_detail (_RPMETH0D, _METHOD_TYPE, 
decode (_METHOD_TYPE, "retrieve"), _QUOTE) ; 

return 1 ; 

} 
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load_ob j ect_hdr ( ) 



load_object_hdr (struct object_hdr *p_object_hdr_item, 
int p_module_type, 
int p_keyword_symbol , 
char *pproject_name, 
char *pjmodule_name', 
char *p_database_name, 
char *p_relation_nante, 
char *p_object_name, 
char *p_object_type_code, 
int p_object_type) 

{ 

register int v_mid; 

if (g_debug_switch == 1) 

pr intf ( " load_ob j ect_hdr ( p_modu le_type=%d , 

p_keyword_symbol=%d, p_project_name=%s, 

p_module_name=%s, p_database_name=%s , 

p_relation_name=%s, p_object_name=%s , 

p_object_type_code=%s, p_object_type=%d) \n", 
p_module_type, p_keyword_symbol , p_project_name, 
p_module_name, p_database_name , p_relation_name , 

p_ob j ect_name , 

p_object_type_code, p_object_type) ; 

v_mid = get_api_f unction (p_keyword_symbol) ; 

if (g_first_ohdr_created == FALSE) 
{ 
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/* create the fist object header record. */ 

g_object_id = 1; 
g_object_seq_no = 0; 
++g_ob j ect_hdr_count ; 
g_f irst_ohdr_created = TRUE; 

} 

else 
{ 

g_ob j ect_id+-s- ; 
g_object_seq_no = 0; 
g_ob j ect_hdr_count++ ; 

} 

store_object_hdr (p_object_hdr_item 
g_object_id) ; 

store_object_hdr (p_object_hdr_item 
api_function[v_mid] .api_function_name 

if (p_module_type == _QUIZ) 
{ 

store_ob j ect_hdr ( p_ob j ect_hdr_item 
p_project_name, -1) ; 

stor e_ob j ect_hdr ( p_ob j ect_hdr_i t em 
p_module_name , -1) ; 

if ( gl_f ile_stack_pointer > 0 ) 

s t or e_ob j ect_hdr ( p_ob j ect_hdr_item , 
_ORIGINATING_MODULE, originating_module, -1) ; 

store_object_hdr (p_object_hdr_item, _DATABASE_NAME, 
p_database_name, -1) ; 

store_ob j ect_hdr (p_ob j ect_hdr_item , _RELAT 1 0N_N AME , 
p_relation_name, -1) ; 



OBJECT ID, NULL, 



_API_FUNCTION, 

-i) ; 



, _PROJECT_NAME , 
, _MODULE_NAME, 
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store_object_hdr (p_object_hdr_item, _OBJECT_NAME, 
p_ob j ect_name , - 1 ) ; 

store_object_hdr (p_object_hdr_item, _OBJECT_TYPE_CODE, 
p_object_type_code, -1) ; 

store_object_hdr (p_object_hdr_item, _OBJECT_TYPE, 
NULL, p_object_type) ; 
} 

return 1 ; 

} 



— */ 

*/ : 



store_ob j ect_hdr ( ) 



int store_object_hdr (struct object_hdr *p_object_hdr_item, 
int p_pb j ect_hdr_type , char *p_char_value, int p_int_value) 

{ 

char *object_hdr_value ; 

if ( g_debug_s witch == 1 ) 

printf ( ,, store_object_hdr_item(p_object_hdr_type=%d, 
p_char_value=%s, p_int_value=%d) \n" , 

p_object_hdr_type, p_char_value , p_int_value) ; 

if ( p_char_value != NULL ) 
{ 

object_hdr_value = 
malloc (strlen (gettoken (p_char_value, _LEFT) ) + 1) ; 

strcpy (object_hdr_value, gettoken (p_char_value, 
_LEFT) ) ; 
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} 



switch ( p_object_hdr_type ) 
{ 

case _OBJECT_ID: 

p_object_hdr_item->object_id = p_int_valu< 
break ; 

case _API_FUNCTION: 

p_object_hdr_item->api_f unction = 
ma Hoc (strlen(object_hdr_value) +1) ; 

strcpy (p_object_hdr_item->api_f unction, 
object_hdr_value) ; 

break ; 

case _PROJECT_NAME: 

p_object_hdr_item->project_name = - 
malloc(strlen(object_hdr_value) +1) ; 

strcpy (p_obj ect_hdr_item->pro j ect_name , 
object_hdr_value) ; 

break ; 

case _MODULE_NAME : 

p_object_hdr_item->module_name = 
malloc(strlen(object_hdr_value) + l) ; 

strcpy (p_obj ect_hdr_item->module_name , 
object_hdr_value) ; 

break ; 

case ORIGINATING MODULE: 
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p_object^hdr_iten\->originating_module = 
malloc(strlen(object_hdr_value) + 1) ; 

strcpy (p_object_hdr_item->originating_module, 
object_hdr_value) ; 

break ; 

case _OBJECT_NAME : 

p_object_hdr_item->object_name = 
malloc(strlen(object_hdr_value) +1) ; 

strcpy ( p_ob j ect_hdr_item->ob j ect_name , 
object_hdr_value) ; 

break ; 

case _OBJECT_TYPE_CODE: 

p_object_hdr_item->object_type_code = 
malloc(strlen(object_hdr_value) + 1) ; 

strcpy (p_object_hdr_item->object_type_code, 
object_hdr_value) ; 

break ; 

case _DATABASE_NAME : 

p_object_hdr_item->database_name = 
malloc(strlen(object_hdr_value) + 1) ; 

strcpy (p_ob j ect_hdr_item->database_name , 
object_hdr_value) ; 

break ; 

case RELATION NAME: 
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p_object_hdr_item->relation_name = 
malloc(strlen(object_hdr_value) + 1) ; 

strcpy(p_object_hdr_item->relation_name, 
object_hdr_value) ; 

break ; 

case _OCCURS_VALUE: 

p_object_hdr_item->occurs = 
malloc(strlen(object_hdr_value) + l) ; 

strcpy (p_ob ject_hdr_item->occurs , ob ject_hdr_value) 

break ; 

case _BLOCK_ID: 

p_object_hdr_item->block_id = p_int_value ; 
break ; 

case _BLOCK_SEQ_NO: 

p_object_hdr_item->block_seq_no = p_int_value ; 
break ; 

case _PANEL_ID: 

p_object_hdr_item->panel_id = p_int_value ; 
break ; 

case _OBJECT_TYPE: 

p_object_hdr_item->object_type = p_int_value ; 
break ; 

case _OB JECT_DTL_COUNT : 

p_object_hdr_item->object_dtl_count = p_int_value ; 
break ; 
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case _INCLUDE_MODULE_FLAG : 

p_ob j ect_hdr_itera-> include_module_f Lag = 
p_int_value ; 

break ; 

default: 
break ; 



returxi 1 ; 

} 

/* 

_ */ 

/* - print_obj_header ( ) 

*/ 



*/ 



void print_obj_header (char *p_f ilespec_str) 
{ 

struct object_hdr *ohdr = first_ohdr; 
int object_count = 0; 
int obj_type = 0 ; 

char *p_compiled_name ; 

long time(), tm = time ((long *)0); 
char *ctime() ; 

char block_name [MAXFIELDSIZE] = ; 
char block_seq_no[MAXFIELDSIZE] = "" ; 

if (g_debug_s witch == 1) 
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printf ("print_obj_header() \n") ; 
( P_filespec_str 1= NULL ) 

if (strlen(gettoken( P _filespec_s'tr, _ri GH T) ) == 

P_compiled_name - p_f ilespec_str ; 
else 

P_compiled_name = gettoken(p_f ilespec_str f 



_RIGHT) ; 
> 

fprintf (coreout, " — \ n ") ; 

fprintf (coreout, core software corp. < R) 32 -bit 
PowerHouse %s Parser %s for 80x86 \n», 
core_parser, core_version) ; 

fprintf (coreout, »- Copyright . (C ) CORE SOFTWARE CORP 
1997-1998. Patent Pending. \n») ; 

fprintf (coreout, »- All rights reserved. \n») ; 

fprintf (coreout, " — \ n ") ; 

fprintf (coreout, «~ Automatically generated on: %s" 
ctime ( &tm) ) ; 

fprintf (coreout, »- . . . was generated by: 

garrywh\n") ; 

fprintf (coreout, »- ... with version: %s 

(%s)\n", core_parser, core_version) ; 
fprintf (coreout, "~\n\n") ; 

do 



++g_commit_count ; 
++object_count ; 

sprintf(block_name, »BLOCK%d'\ ohdr->block_id) ; 
s P rintf(block_seq_no, »%d», ohdr->block_seq_no) ' ; 
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obj_type = ohdr->object_type ; 

if (g_commit_count == 1) . 
{ 

fprintf (coreout, "Begin\n") ; 

} 

fprintf (coreout, " %s\n", ohdr->api_f unction) ; 
fprintf (coreout , " (\n") ; 

/* Print the column name and value. Logic added to 
control when the */ 

/* comma is printed at the end of the line. If at 
least one detail */ 

/* record exists, then print the line, otherwise check 
to see if */ 

/* the next line is to be printed. 

*/ 

/* always (mandatory) need at least a project name */ 

if (ohdr->object_type == _RPPROJECT) 
{ 

/* when printing the project, no comma is required 

*/ 

if ( ohdr->project_name != NULL ) 

fprintf (coreout, " p_pro ject_name=> ' %s 1 \n" , 

ohdr->project_name) ; 
> 

else 
{ 

if ( ohdr->project_name ! = NULL ) 

fprintf (coreout, " p_pro ject_name=> * %s ' , \n" , 

ohdr->project_name) ; 
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} 

/* if not the _RPPROJECT record, then module name is 
(mandatory) */ 

/* (but not for PDL */ 

if (ohdr->object_type != _RPPROJECT) 
{ 

if ( ohdr->object_type == _RPMODULE ) 
< 

/* As the API is creating ohdr records, it 
stamps the module_name */ 

/* with the source file name (i.e., BF013 . QZS) . 
When is comes time */ 

/* to generate the API (after parsing) , 
determine if a BUILD statement */ 

/* was encountered by the parser. If so, the 
module_name becomes the */ 

/* name (compiled) supplied on the BUILD 
statement. If the module */ 

/* record was created from a BEGIN INCLUDE 
statement, then the */ 

/* module name is the name of the INCLUDE file 

*/ 

if ( ohdr->include_module_f lag == TRUE ) 
fprintf (coreout, " 
p_module_name=> • %s ' , \n" , ohdr->module_name) ; 
else 

fprintf (coreout, " 
p_module_name=> 1 %s ' , \n" , p_compiled_name) ; 
} 

else 
{ 

if ( p_f ilespec_str 1= NULL ) 
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f printf (coreout, " 
p_module_narae=> • %s ' , \n" , p_compiled_name) ; 



} 



if ( ohdr->originating_module != NULL ) 
{ 

/* print the originating module */ 

if (strlen (ohdr->originating_module) > 0) 

{ 

if ( (ohdr->object_dtl_count > 0) | | 
(strlen (ohdr->relation_name) > 0)) 
f printf (coreout , " 
p_originating_module_name=> ' %s ' , \n" , ohdr- 
>originating_module) ;.. 

else 

f printf (coreout, " 
p_originating_module_name=> 1 %s ' \n" , ohdr- 
>originating_module) ; 
} 

} 

/* _RPRPROJECT and _RPMODULE object records cannot 
have any additional properties */ 

if (ohdr->object_type != _RPPROJECT && ohdr- 
>object_type != _RPMODULE) 
{ 

if (strlen(ohdr->object_name) > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) || 
( strlen (ohdr->object_type_code) > 0)) 

f printf (coreout, " 
p_object_name=> • %s ' , \n" , ohdr->object_name) ; 

else 
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fprintf (coreout, " 
p_object_namG=>'%s , \n", ohdr->object_name) ; 



if (strlen(ohdr->object_type_code) > 0) 
i 

if (ohdr->object_dtl_count > 0) 
fprintf (coreout, " 
p_object_type_code=>' %s ' , \n" , ohdr->object_type_code) ; 
else 

fprintf (coreout , " 
p_object_name=>'%s' \n", ohdr->object_type_code) ; 
} 

/* print the database_name property */ 
if (strlen(ohdr->database_name) > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) | | 
(strlen(ohdr->relation_name) > 0)) 
fprintf (coreout, " 
p_database_name=> ' %s' , \n" , ohdr->database_name) ; 

else 

fprintf (coreout, " 
p_database_name=> * %s 1 \n" , ohdr->database_name) ; 
> 



/* print the relation_name property */ 
if (strlen(ohdr->relation_name) > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) || 
(strlen(ohdr->object_name) > 0) ) 

fprintf (coreout, " 
p_relation_name=> ' Is ' , \n" , ohdr->relation_name) ; 

else 

fprintf (coreout, " 
p_relation_name=> ' %s ' \n" , ohdr->relation_narae) ; 
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if ( ohdr->block_id > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) || 
(strlen(ohdr->object_type_code) > 0) ) 

fprintf (coreout, " 
p_block_name=> ' %s ' , \n" , block_name) 

else 

fprintf ( coreout , " p_block_name=> ' %s ' \ 

block_name) ; 
. } 



if ( ohdr->block_seq_no > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) | | 
(strlen(ohdr->object_type_code) > 0)) 

fprintf (coreout, " 
p_block_sequence_number=>%s , \n" , block_seq_no) ; 

else 

fprintf (coreout, " 
p_block_sequence_number=>%s\n" , block_seq_no) ; 
} 



} 



/* now, print the details */ 

print_obj_detail (ohdr->f irstdtl , ohdr^>object_id, 
ohdr->object_dtl_count) ; 

fprintf (coreout, " );\n"); 

if (g_commit_count == g_coramit_point | | ohdr->next 

NULL) 

{ 

fprintf (coreout, "End;\n"); 
fprintf (coreout, "/\n\n"); 
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g_commit_count = 0; 

} 

} while ((ohdr = ohdr->next) != NULL) ; 

} 



E. INTERMEDIARY API FILE 



15 [0057] Once a parser has successfully processed the source file, the following Intermediary API file is generated for 
the above example by the parser. This file will later be used by the API Loader described later. 



Begin 

iu_rpproject 
( 

p_project_name=>' Sales History' 

); 

End; 
/ 



iu_rpmodule 
( 

P_project_name=> 'Sales History' , 
p_module_name=> 'ORDERREP ' , 
p_module_type_code=> ' 0002 * , 
p_module_source=> ' orderrep . qzs ' , 
p_module_sequence_number=>l 

); 

End; 
/ 



Begin 

iu_rpblob 
( 
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p_project_name=> 1 Sales History 1 , 
p_module_name=> ' ORDERREP ' , 
p_filedir=>' C:\Clients\CSC\RPData' , 
p_f i lename=> ' orderrep . qzs ' 

); 

End; 
/ 

Begin 

iu_rpaccess 
( 

p_project_name=> 1 Sales History ' , 
p_module_name=> 'ORDERREP' , 
p_object_name=> ' SALES_98 ' , 
p_object_type_code=> ' 003 9 * , 
p_block_name=> ' BLOCK1 ' , 
p_block_sequence_number=>l , 
p_database_name=> ' SALES ' , 
p_relation_name=> 'ORDER' , 
p_access_name=> 'ACCESS 1 ' , 
p_alias_name=> ' SALES_98 ' , 
p_method_type_code=> ' 0012 ' 

) ; 

End; 
/ 

Begin 

iurpvariable 
( 

p_project_name=>' Sales History' 
p_module_name=> ' ORDERREP • , 
p_object_name=> ■ D_DISCOUNT ■ , 
p_object_type_code=> ' 0054 ' , 
p_block_name=> ' BLOCK2 ' , 
p_block_sequence_number=>l , 
p_variable_name=> ' D_DISCOUNT ' , 
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p_variable_type=> • 0013 ' , 
- p_item_datatype_code=> ' 0013 ' , 
p_variable_size=> ' 7 ' , 
p_signed_f lag=> ' 0002 ' , 
p_method_type_code=> ' 0005 • 

>; 

End; 
/ 

Begin 

iu_rpprocedure 
( 

p_pro j ect_nan>e=> ' Sales History ' , 
p_module_name=> ' ORDERREP • , 
p_ob j ect_name=> ■ PROCEDURE1 • , 
p_ob j ect_type_code=> ' 0034 1 , 
p_block_name=> ' BLOCK2 ' , 
p_block_sequence_number=>2 , 
p_variable_name=> 'D_DISCOUNT' , 
p_procedure_name=> • PROCEDURE1 ' , 
p_event_f lag=> ' 0002 ' , 
p_source_procedure_type_code=> 1 0007 
p_method_type_code=> '0001 1 

); 

End; 
/ 

Begin 

iu_rpevent_detai 1 
( 

P_project_name=> ' Sales History', 
p_module_name=> ' ORDERREP ■ , 
p_ob j ect_name=> 1 PROCEDUREl • , 
p_object_type_code=> ' 00 3 4 ' , 
p_block_name=> 1 BLOCK2 ' , 
p_block_sequence_number=>2 , 



EP 0 990 983 A1 



p_procedure_name=> * PROCEDURE1 ' , 
p_event_name=> 1 EVENT 1 ' , 
p_event_sequence_number=>l , 
p_condition_name=> 1 CONDITION1 ' , 
p_event_type_code=> 1 0001 1 , 
p_nesting_level=>l , 
p_token=> ' if ' , 
p_token_type_code=> ' 003 0 ' , 
p_method_type_code=> ' 0001 ' 

) ; 
End; 
/ 

Begin 

iu_rpcondition_detail 
( 

p_pro j ect_name=> 1 Sales History' 
p_module_name=>'ORDERREP' , 
p_object_name=> ' PROCEDURE1 ' , 
p_object_type_code=> ' 003 4 ' , 
p_block_name=> ' BLOCK2 * , 
p_block_sequence_number=>2 , 
p_procedure_name=> ' PROCEDURE1 ' , 
p_condition_name=> ' CONDITION 1 ' , 
p_condition_sequence_number=>l , 
p_stack_name=> ' STACKl ' , 
p_method_type_code=> ' 0004 ' 

); 

End; 
/ 

Begin 

iu_rpstack 
( 

p_project_name=> 'Sales History' 
p_module_narae=> ' ORDERREP ' , 
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p_object_name=> 'PROCEDUREl ' , 
p_ob ject_type_code=> ' 0034 ' , 
p_block_name=> 1 BLOCK2 ' , 
p_block_sequence_number=>2 , 
p_stack_name=> ' STACK1 ' , 
p_method_type_code=> '0001' 

); 

End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=>' Sales History 1 , 
p_module_name=> « ORDERREP • , 
p_ob j ect_name=> ' 0RDER_AMT • , 
p_ob j ect_type_code=> '0040', 
p_block_name=> ' BLOCK2 1 , 
p_block_sequence_number=>2 , 
p_element_name=> ' ORDER_AMT ' , 
P_get_relation_f lag=> ' 0001 ' , 
p_stack_name=> ' STACKl ' , 
p_stack_sequence_number=>l , 
p_token=> ' ORDER_AMT ' , 
p_token_type_code=> 1 0020 • , 
p_method_type_code=> 1 0001 ' 

); 

End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=> 'Sales History*, 
p_module_name=> 'ORDERREP • , 
p_block_name=> • BLOCK2 ' , 
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p_block_sequence_number=>2 , 
p_stack_name=> ' STACK1 ■ , 
p_stack_sequence_number=>2 , 
p_token=> * > ' , 

p_token_type^code=> '0016', 
p_method_type_code=> ' 0001 1 

) ; 

End; 
/ 



iu_rpstack_detail 
( 

p_project_name=> ' Sales History 1 , 
p_module_name=>'ORDERREP' , 
p_ob j ect_name=> ' LITERALl ' , 
p_object_type_code=> ' 0022 ' , 
p_block_name=> 'BLOCK2 ' , 
p_block_sequence_number=>2 , 
p_l itera l_name=> * LITERALl ' , 
p_text_value=> ' 10000 ' , 
p_stack_name=> ■ STACK1 ' , 
p_stack_sequence_number=>3 , 
p_token=> ' 10000 ' , 
p_token_type_code=> * 0019 ' , 
p_method_type_code=> ' 00 01 • 

); 

End; 
/ 



Begin 

iu_rpevent_deta i 1 
( 

p_project_name=>' Sales History', 
p_module_name=> 1 ORDERREP 1 , 
p_object_nanie=> 'PROCEDURE! ' , 
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p_object_type_code=> ' 003 4 * , 
p_block_nai»e=> ' BLOCK3 ' , 
p_block_sequence_nuraber=>2 , 
P_procedure_name=> ' PROCEDURE 1 ' , 
p_event_name=> • EVENT 1 ' , 
p_event_sequence_nuraber=>2 , 
p_event_type_code=> '0002 1 , 
p_nesting_level=>l, 
P_related_block_name=> ' BLOCK2 1 , 
P_related_block_sequence_number 
p_token=> l then' , 
p_token_type_code=> • 003 l ' , 
p_method_type_code=> 1 0001 1 

) ; 

End; 
/ 

Begin 

iu_rpassignment 
( 

p_project_name=>' Sales History' 
p_module_name=> 'ORDERREP 1 , 
p_ob j ect_name=> • D_DISCOUNT ' , 
p_object_type_code=> ' 0054 ' , 
p_block_name=> 'BLOCK3 ' , 
p_block_sequence_number=>3 , 
p_variable_name=> ' D_DISCOUNT ' , 
p_assignment_type_code=> ' 0003 ■ , 
p_assignment_name=> 'ASSIGNl ' , 
p_stack_name=> • STACK2 • , 
p_method_type_code=> 1 0002 ' 

); 

End; 
/ 
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iu_rpstack 

( " 

p_project_name=> • Sales History* 
p_module_name=> * ORDERREP ' , 
p_object_name=> ' D_DISCOUNT ' , 
p_object_type_code=> '0054 ' , 
p_block_name=> ' BLOCK3 ' , 
p_block_sequence_number=>3 , 
p_variable_name=> ' D_DISCOUNT ' , 
p_stack_name=> ' STACK2 ' , 
p_method_type_code=> ' 0001 ' 

) ; 
End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=> ' Sales History 1 
p_module_name=> 'ORDERREP 1 , 
p_block_name=> ' BLOCK3 ' , 
p_block_sequence_number=>3 , 
p_stack_name=> ' STACK 2 1 , 
p_stack_sequence_number=> 1 , 
p_token=> 1 ( ' , 

p_token_type_code=> ' 0006 1 , 
p_method_type_code=> 1 0001 ' 

) ; 

End ; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=> ' Sales History' 
p_module_name=> 1 ORDERREP ' , 
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P_block_name=> 'BLOCK3 ' , 
p_block_sequence_number=>3 , 
p_stack_name=> 1 STACK2 ' , 
p_stack_sequence_number=>2 , 
p_token=> ' ( • , 

p_token_type_code=> ' 0006 1 , 
p_method_type_code=> ' 0001 1 

); 

End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=>' Sales History', 
p_module_name=> ' ORDERREP ' , 
p_object_name=>' ORDER AMI", 
p_object_type_code=> ' 004 0 • , 
p_block_name=> 'BLOCK3 • , 
p_block_sequence_number=>3 , 
p_element_name=> ' ORDER_AMT ' , 
P_get_relation_f lag=> ' 0001 • , 
p_stack_name=> ' STACK2 f , 
p_stack_sequence_number=>3 , 
p_token=> 'ORDER_AMT 1 , 
p_token_type_code=> ' 0020 ' , 
p_method_type_code=> ' 0001 • 

); 
End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_pro ject_name=> ' Sales History » , 
p_module_name=> 'ORDERREP ' , 
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p_block_name=>'BLOCK3 ' , 
p_block_sequence_nurnber=>3 , 
p_stack_name=> 'STACK 2 • , 
p_stack_sequence_number=>4 > 
p_token=> • * • , 

p_token_type_code=> ' 0010 * , 
p_method_type_code=> ' 0001 1 

); 

End; 
/ 

Begin 

iu_rpst ack_detai 1 
( 

p_project_name=>' Sales History' 
p_module_name=> ' ORDERREP ' , 
p_object_name=> ' LITERAL2 • , 
p_object_type_code=>'0022 1 , 
p_block_name=> ' BL0CK3 ' , 
p_block_sequence_number=>3 , 
p_literal_name=> ' LITERAL2 ' , 
p_text_value=> ' 100 ' , 
p_stack_name=> 1 STACK 2 ' , 
p_stack_sequence_number=>5 , 
p_token=> ' 100 ' , 
p_token_type_code=> ' 0019 ' , 
p_method_type_code=> ' 0001 ' 

); 

End; 
/ 

Begin 

iu_rpstack_deta i 1 
( 

p_project_name=>' Sales History' 
p_module_name=> 'ORDERREP ' , 
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p_block_name=> • BLOCK3 ' 
P_block_sequence_number=>3 , 
p_stack_name=> ' STACK 2 • , 
p_stack_seguence_number=>6., 
p_token=> ' ) • , 

p_token_type_code=> ' 0007 • , 
p_method_type_code=> ' 0001 ' 

) ; 
End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=>' Sales History 
p_module_name=> ■ ORDERREP ' , 
p_block_name=> 'BLOCK3 » , 
p_block_sequence_number=>3 , 
p_stack_narae=> ' STACK2 ' , 
p_stack_sequence_number=>7 , - 
p_token=> • / • , 

p_token_type_code=> • 0011 ' , 
p_method_type_code=> • 0001 • 

); 

End; 
/ 

Begin 

iu_rpstack_detail 
( 

P_project_name=>' Sales History' 
p_raodule_name=> 'orderrep 1 , 
p_object_name=> 'LITERAL3 ' , 
p_object_type_code=> ' 0022 • , 
P_block_name=> 'BLOCK3 ' , 
p_block_sequence_number=>3 , 
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p_literal_name=> 'LITERAL3 ' , 
p_text_value=> • 100 ' , 
p_stack_name=> ' STACK2 * , . 
p_stack_sequence_number=>8 , 
p_token=> 1 100 • , 
p_token_type_code=> 1 0019 ' , 
p_method_type_code=> 1 0001 ' 

) ; 

End; 
I- 

Begin 

iu_rpstack_detail 
( 

p_pro ject_name=> ' Sales History' 
p_module_name=> ' ORDERREP ' , 
p_block_name=> 1 BLOCK3 ' , 
p_block_sequence_number=>3 , 
p_stack_name=> ' STACK2 ' , 
p_stack_sequence_number=>9 , 
p_token=> ' ) 1 , 

p_token_type_code=> 1 0007 ' , 
p_method_type_code=> ' 0001 1 

); 

End; 
/ 

Begin 

iu_rpevent_detail 
( 

p_project_name=> ' Sales History' 
p_module_name=> 1 ORDERREP • , 
p_ob ject_name=> ■ PROCEDURE1 ' , 
p_ob ject_type_code=> ' 0034 * , 
p_block_name=> * BLOCK4 ' , 
p_block_sequence_number=>4 , 
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p_procedure_name=> ' PROCEDURE1 ' , 
p_event_name=> • EVENT 1 1 , 
p_event_sequence_number=>3 , 
p_event_type_code=> 1 0003 ' , 
p_nesting_level=>l , 
p_related_block_name=> 'BL0CK2 ' , 
p_related_block_sequence_number= 
p_token=> ' else ' , 
p_token_type_code=> 1 003 2 ' , 
p_method_type_code=> ' 0001 1 

) ; 

End; 
/ 

Begin 

iu_rpassignment 
( 

p_project_name=> ' Sales History ' , 
p_module_name=> ' ORDERREP ' , 
p^bject^ame^'DJDISCOUNT' , 
p_object_type_code=> ' 0054 ' , 
p_block_name=> ' BLOCK4 ' , 
p_block_sequence_number=>5 , 
p_variable_name=>'D_DISCOUNT' , 
p_assignment_type_code=> '0003 ' , 
p_assignment_name=>'ASSIGN2 ' , 
p_stack_name=> ' STACK 3 ' , 
p_method_type_code=> 1 0002 ' 

) ; 
End; 



Begin 

iu_rpstack 
( 

p_project_name=> 'Sales History", 
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p_module_name=> ' ORDERREP ' , 
p_ob j ect_name=> ' D_DISCOUNT ' , 
p_object_type_code=> 1 0054 ' , 
p_block_name=> • BLOCK4 1 , 
p_block_sequence_number=>5 , 
p_var iable_name=> • D_DISCOUNT ' , 
p_stack_name=> ' STACK 3 ' , 
p_method_type_code=> 1 0001 ' 

) ; 
End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=> ' Sales History 1 
p_module_name=> 1 ORDERREP ' , 
p_ob ject_name=> 1 LITERAL4 ' , 
p_object_type_c.ode=>'0022 ' , 
p_block_name=> ■ BLOCK4 ' , 
p_block_sequence_number=>5 , 
p_l itera l_name=> 1 LITERAL4 ' , 
p_text_value=> ' 0 ' , 
p_stack_name=> ' STACK3 ' , 
p_stack_sequence_number=> 1 , 
p_token=> 1 0 1 , 

p_token_type_code=> • 0019 1 , 
p_method_type_code=> * 0001 ' 

) ; 

End; 
/ 

Begin 

iu_rppanel 

( 

p_project_name=>' Sales History 1 
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P_module_name=> 'ORDERREP ', 
p_ob j ect_name=> • PAN EL l ' , 
P_object_type_code=> 1 0030 * , 
p_block_name=> 'BLOCK5 ' , 
p_block_sequence_number=>i , 
p_panel_name=> • PANEL l * , 
p_panel_type_code=> • 0011 ' , 
p_method_type_code=> '0001 ' 

); 

End; 
/ 



Begin 

iu_rpf ield_property 
( 

p_project_name=>' Sales History' , 
p_module_name=> ' ORDERREP ' , 
p_object_name=> •ORDER_ID' , 
p_object_type_code=> 1 0040 ' , 
p_block_name=> ' BLOCKS ■ , 
p_block_sequence_number=>2 , 
p_element_name=>* ORDER ID', 
P_get_relation_f lag=> ' oooi ' , 
p_panel_name=> • paneli ' , 
p_f ield_property_name=> ' PROPERTY 1 • 
p_method_type_code=> * 0006 ' 

); 

End; 
/ 

Begin 

iu_rpcoordinate 
( 

p_project_name=> 'Sales History', 
p_module_name=> • ORDERREP ' , 
p_object_name=> 'PROPERTYl ' 
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p_object_type_code=>'0015' , 
p_block_name=> ' BLOCK5 ' , 
p_block_sequence_number=>2 , 
p_coordinate_name=>'COORDINATEl 1 , 
p_property_name=> ' PROPERTY 1 ' , 
p_coordinate_type_code=> ' 0004 • , 
p_start_row=> 1 

) ; 

End; 
/ 

Begin 

iu_rpf ield_property 
( 

p_project_name=> ' Sales History', 
p_module_name=> ' ORDERREP ' , 
p_object_name=> ' ORDER_AMT ' , 
p_object_type_code=> ' 004 0 ' , 
p_block_name=> ' BLOCK5 • , 
p_block_sequence_number=>3 , 
p_element_name=> 1 0RDER_AMT * , 
p_get_relation_flag=>'0001' , 
p_panel_name=> 'PANEL1 ' , 
p_f ield_property_name=> ' PROPERTY2 ' 
p_method_type_code=> 1 0006 ' 

); 

End; 
/ 

Begin 

iu_rpcoordinate 
( 

p_project_name=> 'Sales History', 
p_module_name=> 1 ORDERREP ' , 
p_ob ject_name=> ' PROPERTY2 ' , 
p_ob ject_type_code=> ' 0015 ' , 
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P_block_name=> ' BLOCKS ' , 
p_block_sequencejnumber=>3 , 
p_coordinate_name=> 1 COORDINATE2 ' 
p_property_name=> 'PROPERTY2 ' , 
p_coordinate_type_code=> ' 0004 • , 
p_start_row=>l 

) ; 
End; 
/ 

Begin 

iu_rpf ield_property 
( 

p_pro ject_name=> ' Sales History ' , 
p_mpdule_name=> • ORDERREP ■ , 
P_object_name=> 'D_DISCOUNT' , 
p_object_type_code=> ' 0054 * , 
p_block_name=> ' BLOCKS 1 , 
p_block_sequence_number=>4 , 
P.Jvariable^jian^^'DJHSCOUNT' , 
p_panel_name=> 1 PANEL1 ' , 
p_f ield_property_name=> ' PROPERTY3 
p_method_type_code=> ' 0006 ' 

) ; 
End; 
/ 

Begin 

iu_rpcoordinate 
( 

P_project_name=>' Sales History' , 
p_module_name=> 'ORDERREP ' , 
p_obj ect_name=> ■ PROPERTY 3 1 , 
p_ob j ect_type_code=> ' 0015 ' , 
p_block_name=> ' BLOCKS ' , 
p_block_sequence_number=>4 , 
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p_coordinate_name=> 1 COORDINATE3 ' , 
p_property_name=> ' PROPERTY 3 1 , 
p_coordinate_type_code=> ' 0004 ' , 
p_start_row=>l 

) ; _ 
End; 
/ 



F. Data Model for Access & Access Field 

[0058] Figure 3 shows a representation of the portion of the data model that encompasses the ACCESS and. 
ACCESS_FIELDS relations. These entities in the CORE Repository are used to store the information that will be used 
to regenerate the data selection criteria for the target environment. 

G. Oracle API Source Code 

[0059] The following sample API includes the structure and functionality inherent in the remainder of the APIs. Each 
API is programmed with the capability to determine if the action to be executed is an Insert action or an Update action. 
Prior to actually performing the required action, the API's will perform a number of validation steps that establish the 
relationship between the current Object and the remainder of the objects already stored in the CORE repository. 



CREATE OR REPLACE PROCEDURE IO_RPAccess ( 

p_Pro j ect_Name 

RPProject . Project_Name%type default null, 
p_Module_Name 

RPModule.Module_Name%type default null, 
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p_Originating_Module_Name RPModule . Module_Name%type 
default null, 

p_Database_Name 

DBDatabase.Database_Name%type default null, 
p_Relation_Name 

DBRelation.Relation_Name%type default null, 
p_Ob j ect_Name 

RPObject.Object_Name%type default null, 
p_Ob j ect_Type_Code 

RPObject.Object_Type_Code%type default null, 
p_method_type_code 

RPMethod.Method_Type_code%type default null, 
p_Debug_switch Varchar2 default 

null, 

p_Alias_Name 

RPAccess.Alias_Name%type default • ' , 
p_Physical_Name 

DBRelation.Physical_Name%type default null, 
p_Re 1 a t i on_typ e_c od e 

DBRelation.Relation_Type_Code%type default Null , 
p_Access_Name 

RPAccess.Access_Name%Type default Null, 
p_Stack_name 

RPStack.Stack_Name%Type Default null, 
p_Index_Name 

RPStack.Stack_name%Type Default null, 
p_Project_ID 

RPAccess.Project_lD%type default null, 
p_Module_ID 

RPAccess.Module_lD%type default null, 
p_0r ig i nat ing_Modu 1 e_I D 
RPAccess.Originating_Module_ID%type default null, 
p_Object_ID 

RPAccess.Object_ID%type default null, 
p_Method_ID 
RPAccess.Method_ID%type default null, 
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p_Access_ID 

RPAccess. Access_ID%type default null, 
p_Database_ID 

RPAccess. Database_ID%type default Null , 
p_Relation_ID 

RPAccess. Relation_ID%type default Null 
p_Block_ID 

RPAccess. Block_ID%type default Null , 
p_Block_Name 

RPCode_Block. Block_Name%type default null, 
p_Block_sequence_Number 
RPMethod.Block_sequence_Number%type default 0, 
p_L i nkage_t ype_c od e 

RPAccess. Linkage_type_code%type default Null 
p_Backward__Flag 

RPAccess. Backward_Flag%type default Null , 
p_Generic_Flag 

RPAccess. Generic_Flag%type default Null , 
p_Optional_Flag 

RPAccess. Optional_Flag%type default Null , 
p_Order_Type_Code 

RPAccess. Order_Type_Code%type default Null 
p_Sequential_Flag 

RPAccess. Sequential_Flag%type default Null 
p_Unique_Flag 

RPAccess. Unique_Flag%type default Null 
p_Autocommit_Flag 

RPAccess. Autocommit_Flag%type default Null 
p_Autol ink_F lag 

RPAccess. Autolink_Flag%type default Null 
p_Nowarn_F lag 

RPAccess . Nowarn_Flag%type default Null , 
p_Lock_Type_Code 

RPAccess. Lock_Type_Code%type default Null , 
p_Index_ID 

RPAccess. Index_ID%type default Null , 
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p_Stack_ID 

RPAccess. Stack_ID%type default null, 
p_Audit_Creation_Date 

RPAccess.Audit_Creation_Date%type default Null 
p_Audit_Modif ied_Date 

RPAccess.Audit_Modif ied_Date%type default Null 
p_Audit_Update_Type_Code 
RPAccess.Audit_Update_Type_Code%type default Null 
p_Audit_Who 

RPAccess. Audit_Who%type default Null , 
p_Audit_Where 

RPAccess.Audit_Where%type default Null ) IS 

t_Project_ID 

RPAccess . Pro j ect_ID%type ; 
t_Module_ID 

RPAccess. Module_ID%type; 
t_Originating_Module_ID 

RPAccess . Originating_Module_iD%type ; 
t_Object_ID 

RPAccess . Ob j ect_ID%type ; 
t_Method_ID 

RPAccess . Method_ID% type ; 
t_Database_ID 

RPAccess . Database_ID%type ? 
t_Relation_ID 

RPAccess. Relation_ID%type; 
t_Block_ID 

RPAccess. Block_ID%type default 0 ;/ 
t_Procedure_ID 

RPAccess. Block__ID%type default 0 ; 
t_Index_ID 

RPAccess. Index_ID%type default 0; 
t_Stack_ID 

RPAccess. Stack_ID%type default 0; 
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V_Project_ID 

RPAccess . Pro j ect_ID%type ; 
V_Module_ID 

RPAccess. Module_ID%type; 
V_0 r i g i na t ing_Modu 1 e_I D 
RPAccess . Originating_Module_ID%type ; 
V_Object_ID 

RPAccess . Ob j ect_ID%type ; 
V_Method_ID 

RPAccess . Method_ID%type ; 
V_Block_ID 

RPAccess. Block_ID%type default 0; 
V_Block_sequence_Number 
RPAccess . Block_Sequence_number%type default 0; 
v_Access_Name 

RPAccess . Access_Name%Type ; 
V_Database_ID 

RPAccess . Database_ID%type ; 
V_Relation_ID 

RPAccess . Relat ion_ID%type ; 
V_Access_ID 

RPAccess . Access_ID%type ; 
V_Method_Type_Code 
RPMethod . Method_Type_Code%type ; 
V_Alias_Name 

RPAccess . Alias_Name%type ; 
v_Linkage_type_code 

RPAccess . Linkage_type_code%type ; 
v_Physica l_Name 

DBRelat ion . Phys ica l_Name% type ; 
v_Relation_type_code 

DBRelation. Relation_Type_Code%type ; 
V_Backward_Flag 

RPAccess . Backward_Flag%type ; 
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V_Generic_Flag 

RPAccess . Gener ic_Flag%type ; 
V_Optional_Flag 

RPAccess. Optional_Flag%type; 
V_Order_Type_Code 

RPAccess . Order_Type_Code%type ; 
V_Sequential_Flag 

RPAccess. Sequential_Flag%type; 
V_Unique_Flag 

RPAccess . Unique_Flag% type ; 
V_Autocommit_Flag 

RPAccess. Autocommit_Flag%type; 
v_Autolink_Flag 

RPAccess. Autolink_Flag%type defaul 
V_Nowam_Flag 

RPAccess. Nowarn_Flag%type; 
V_Lock_Type_Code 

RPAccess . Lock_Type_Code%type ; 
V_lndex_ID 

RPAccess . Index_ID%type ; 
v_stack_ID 

RPAccess. Stack_ID%type default 0; 
v_Audit_Creation_Date 

RPAccess . Audit_Creation_Date%type ; 
V_Audit_Modif ied_Date 
RPAccess. Audit_Modified_Date%type; 

V_Audit_Update_Type_Code 
RPAccess . Audit_Update_Type_Code%type ; 
V_Audit_Who 

RP Access. Audi t_Who%type ; 
V_Audit_Where 
RPAccess . Audit_Where%type ; 

Zero Number := o; 

Spaces Varchar(04) := • ■ ; 

BEGIN 
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If p_Project_ID is Null or p_project_id 
Then 

Null; 
else 

v_Project_id := p_pro ject_id; 
End If; 



if p_Module_ID is 
Then 

Null; 
else 

v_Module_ID := 
End If; 



null or p_Module_ID 



p_Module_ID; 



if p_Originating_Module_ID is null or 
p_Originating_Module_f D = 0 
Then 

Null; 
else 

v_Originating_Module_ID := 
p_Originating_Module_ID; 
End If; 



if p_Object_ID is null or p_Object_ID 
Then 

Null; 
else 

v_Object_ID := p_Object_ID; 
End If; 



if p_method_ID is 
Then 

Null; 
else 

v_method_ID := 
End If; 



null or p_method_ID 



p_method_ID; 
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if p_database_ID is null or p_database_ID = 0 
Then 

Null; 
else 

v_database_ID := p_database_ID; 
End If; 



if p_relation_ID is null or p_relation_ID = o 
Then 

Null; 
else 

v_relation_ID := p_relation_ID; 
End If; 



if p_access_ID is null or p_access_ID = 0 
Then 

Null; 
else 

v_access_ID := p_access_ID; 
End If; 



if p_Block_ID is null or p_Block_ID = 0 
Then 

Null; 
else 

v_block_ID := p_Block_ID; 
End If; 



if p_Block_sequence_Nuraber is null or 
p_Block_sequence_Number = 0 
Then 

Null; 
else 

v_Block_sequence_number := 
p_Block_sequence_number ; 
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End If; 

if p_Pro ject_name is Null or p_Project_name = spaces 
Then 

Null; 
Else 

rp_validate_Pro ject (p_Pro ject_nanie , 
p_Debug_Switch, t_Pro ject_id) ; 

V_Project_ID := t_Project_ID ; 
If P_Debug_Switch ="'¥• 
Then 

DBMS_OUTPUT.PUT_LINE( 'RPACCESS - Project 
Validation = ' | | t_Project_id) ; 
End If; 
End If; 

IF p_Module_Name is Null or p_module_name = spaces 
Then 

Null; 
else 

rp_validate_Module (t_project_id, p_Module_narae, 
p_Debug_Switch, t_Module_id) ; 

V_Module_ID := t_Module_ID ; 

If P_Debug_Switch = 1 Y ' 

Then 

DBMS_OUTPUT.PUT_LINE( ' RPACCESS - Module 
Validation = ' | | t_Module_id) ; 
End if; 
End IF; 

IF p_Originating_Module_Name is Null and p_module_name 
<> spaces 
Then 

rp_va 1 idate_Module ( t_pr o j ect_id , p_Modu le_name , 
p_Debug_Switch, t_Originating_Module_id) ; 
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V_Originating_Module_ID := t_Originating_Module_ID 

If P_Debug_Switch = ' Y 1 
Then 

DBMS_OUTPUT.PUT_LINE( 'RPACCESS- Originating 
Module Validation = ' | | t_originating_,nodule_id) ; 
End If; 
else 

rp_validate_Module(t_project_id, 
p_Or ig inat ing_Modu 1 e_name , p_Debug_Sw i tch , 
t_Originating_Module_id) ; 

V_Originating_Module_ID ' := t_Or iginating_Module_ID 

If P_Debug_Switch = 'y* 
Then 

DBMS_OUTPUT . PUT_LINE ( ' RPACCESS- Originating 
Module Validation = • | | t_originating_modul e _id) ; 
End If; 
END If; 

If p_object_name is null or p_object_name = spaces 
Then 

null; 
else 

rp_validate_Object(t_project_id, t_Module_id, 
t_Originating_Module_id, p_object_name, P_Object_type_code, 
p_Debug_Switch,t_Object_id) ; 

V_Object_ID : = t _Object_ID ; 

If P_Debug_Switch = 'Y' 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPAccess - Object 
Validation = 1 || t_object_id) ; 
End if; 
End If; 
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If p_Method_Type_code is null or p_method_type_code = 
spaces 

Then 

null; 
else 

rp_validate_Method(t_project_id, t_Module_id, 
t_Originating_Module_id, t_object_Id, P_Method_type_code, 
p_Debug_Switch , p_Block_Name, 
p_Block_sequence_number , t_Method_id) ; 

V_Method_ID := t_Method_ID ; 

If P_Debug_Switch = ' Y ' 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPACCESS - Method 
Validation = ' | | t_method_id) ; 
End if; 
End If; 



If p_Block_name is null 
Then 

v_Block_id := 0; 
Else 

rp_val idate_Code_Block ( t_pro j ect_id , t_Module_id , 
t_Originating_Module_id, p_Block_name , p_Debug_Switch , 
t_Block_id, t_Procedure_id) ; 

V_Block_ID := t_Block_ID ; 

If P_Debug_Switch = 'Y' 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPAccess - Validate Code 
Block = • || t_Block_id); 
End If; 
End If; 

If p_Database_name is null or p_database_name = spaces 
Then 

null; 
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else 

- DB_validate_Database (p_database_name , 
p_Debug_Switch,t_database_id) ; 

V_Database_ID : = t_database_ID ; 

If P_Debug_Switch = ' Y 1 

Then 

DBMS_OUTPUT.PUT_LINE('RPACCESS - Database = ' Jj 
t_database_id) ; 

End. If; 
End IF; 

If p_Relation_name is null or p_Relation_name = spaces 
Then 

null; 
else 

DB_va 1 idate_Re lat ion ( t_Database_id , p_Re lat ion_narae , 
p_Debug_Switch,t_Module_id,t_Relation_id) ; 

v_relation_id : = t_relation_id; 

If P_Debug_Switch = 'Y' 

Then 

DBMS_OUTPUT.PUT_LINE('RPAccess - DBRelation 
Validation = ' | | t_relation_id) ; 
End If; 

If V_Relation_id = 0 
then 

RP_validate_Relation(t_Project_id, t_Module_id, 
t_originating_module_id, p_relation_name, 
p_Debug_Switch,t_Relation_id) ; 

v_relation_id : = t_relation_id; 

If P_Debug_Switch = ' Y ' 

Then 

DBMS_OUTPUT.PUT_LINE('RPAccess - RPRelation 
Validation = • | | t_relation_id) ; 
End If; 
End If; 
End If; 
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If P_Stack_name is Null or p_Stack_Name = ' 1 
Then 

Null; 

else 

rp_validate_Stack ( t_pro j ect_id , t_Module_id , 
t_Originating_Module_id, P_Stack_Name, p_Debug_Switch, 
t_stack_id) ; 

v_Stack_id := t_Stack_id; 

If P_Debug_Switch = 'V 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPAccess - Get Stack 
| | t_Stack_id) ; 

End If; 
End If; 

If P_Index_name is Null or p_Index_Name = ' 1 
Then 

Null; 

else 

"~ rp_validate_Relation_Index (t_pro ject_id, 
t_Module_id, t_Originating_Module_id , P_Index_Name, 
p_Debug_S witch, t_Index_id) ; 

v_Index_id := t_Index_id; 

If P_Debug_Switch = ' Y ' 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPACcess - Get Index 
| | t_Index_id) ; 

End If; 
End If; 

V_access_Name := p_access_Name ; 

SELECT Project_ID, 
Module_ID, 

Originating_Module_ID, 
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Object_ID, 
Method_ID, 
Access_ID, 
Block_ID, 

Block_Sequence_Number , 

Access_Name , 

Database_ID, 

Relation_ID, 

Alias_Name, 

Index_ID, 

Stack_ID, 

1 inkage_Type_Code , 

Backward_Flag, 

Generic_Flag, 

Optional_Flag, 

Order_Type_Code , 

Sequential_Flag, 

Unique_Flag, 

Autocommit_Flag, 

Autolink_Flag, 

Nowarn_Flag , 

Lock_Type_Code , 

Audit_Creation_Date , 

Audit_Modif ied_Date, 

Audit_Update_Type_Code , 

Audit_Who, 

Audit_Where 

v_Project_lD, 

v_Module_ID, 

v_originating_Module_ID, 

v_Object_ID, 

v_Method_ID, 

v_Access_ID, 

v_Block_ID, 

v_Block_Sequence_Nuir.ber , 
v_Access_Name , 
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v_Database_ID, 
v_Relation_ID, 
v_Alias_Name, 
V_Index_ID, 
V_Stack_ID, 
v_linkage_Type_Code, 
v_Backward_Flag , 
v_Generic_Flag , 
v_Optional_Flag , 
v_Order_Type_Code , 
v_Sequent ia 1_F lag , 
v_Unique_Flag, 
v_Autocommit_Flag , 
v_Autolink_Flag, 
v_Nowarn_Flag , 
v_Lock_Type_Code , 
v_Audit_Creat ion_Date , 
v_Audit_Modif ied_Date , 
v_Audit_Update_Type_Code , 
v_Audit_Who, 
v_Audit_Where 
FROM RPAccess 

WHERE Project_ID = t_Project_ID and 

Module_ID = t_Module_ID and 

Originating_Module_ID = 

t_Originating_Module_ID and 

Object_ID = t_Object_ID and 

Method_ID = t_Method_ID and 

Block_id = v_Block_id and 

Block_Sequence_number = 

p_Block_sequence_Number and 

access_name = p_Access_Name; 

IF P_Alias_Name is null 
Then 



61 



EP 0 990 983 A1 



null; 
Else 

v_Alias_Name := p_Alias_Name; 
End If; 



IF P_Linkage_Type_code 
Then 

null; 
Else 

v_Linkage_Type_Code 
End If; 



is null 



:= P_Linkage_Type_Code; 



IF P_Backward_Flag is null 
Then 

null; 
Else 

v_Backward_Flag := p_Backward_Flag ; 
End If; 

IF P_Generic_Flag is null 
Then 

null; 
Else 

v_Generic_Flag := p_Generic_Flag; 
End If; 

IF P_Optional_Flag is null 
Then 

null; 
Else 

v_Optional_Flag := p_Optional_Flag; 
End If; 

IF P_Order_Type_Code is null 
Then 

null; 
Else 

v_Order_Type_Code := p_Order_Type_Code; 
End If; 



EP 0 990 983 A1 



IF P_Sequential_Flag is null 
Then 

null; 
Else 

v_Sequential_Flag := p_Sequential_Flag; 
End If; 

IF P_Unique_Flag is null 
Then 

null; 
Else 

v_Unique_Flag := p_Unique_Flag; 
End If; 

IF P_Autocommit_Flag is null 
Then 

null; 
Else 

v_Autocommit_Flag := p_Autocommit_Flag ; 
End If; 

IF P_Autolink_Flag is null 
Then 

null; 
Else 

v_Autolink_Flag := p_Autolink_Flag; 
End If; 

IF P_Nowarn_Flag is null 
Then 

null; 
Else 

v_Nowarn_Flag := p_Nowarn_Flag; 
End If; 

IF P_Lock_Type_Code is null 
Then 

null; 
Else 

v_Lock_Type_Code := p_Lock_Type_Code; 
End If; 
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IF P_Index_lD is null 
Then 

null; 
Else 

v_Index_ID := p_lndex_lD; 
End If; 

IF P_stack_ID is null 
Then 

null; 
Else 

v_stack_ID := p_stack_ID; 
End If; . 



IF P_Audit_Creation_Date is null 
Then 

null; 
Else 

v_Audit_creation_Date := p_Audit_Creation Date; 
End If; - 

IF P_Audit_Modified_Date is null 
Then 

null; 
Else 

v_Audit_Modified_Date := p_Audit_Modif ied Date; 
End if; 

IF P_Audit_Update_Type_Code is null 
Then 

null; 
Else 

v_Audit_Update_Type_Code := 
p_Audi t_Update_Type_Code ; 
End If; 

IF P_Audit_Who is null 
Then 
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null; 
Else 

v_Audit_Who := p_Audit_Who; 
End If; 

IF P_Audit_Where is null 
Then 

null; 
Else 

v_Audit_Where : = p_Audit_Where; 
End If; 



UPDATE 

SET 



Access_Name = v_Access_Name , 

Database_ID = v_Database_ID 

Relation_ID = v_Relation_ID , 

Alias_Name = v_Alias_Name , 

Index_ID = v_lndex_ID, 

Stack_ID = v_Stack_ID, 

Linkage_type_code = v_Linkage_Type_Code, 

Backward_Flag = v_Backward_Flag 

Generic_Flag = v_Generic_Flag , 

Optional_Flag = v_Optional_Flag , 

Order_Type_Code = v_Order_Type_Code , 

Sequential_Flag = v_Sequential_Flag 

Unique_Flag = v_Unique_Flag , 

Autocommit_Flag = v_Autocomrait_Flag , 

Autolink_Flag = v_Autolink_Flag , 

Nowarn_Flag = v_Nowarn_Flag , 

Lock_Type_Code = v_Lock_Type_Code , 

Audit_Creation_Date = v_Audit_Creation_Date , 

Audit_Modif ied_Date = v_Audit_Modif ied_Date , 

Audit_Update_Type_Code = v_Audit_Update_Type_Code 
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Audit_where = v_Audit 
WHERE 

Access_lD 
Object_lD 
Method_ID 
Project_ID 

Originating_Module_ID 
Module_ID 
Block_id 

Block_Sequence_number 

EXCEPTION 

WHEN NO_DATA_FOUND THEN 
If v_Object_id = o or 
v_object_id is null 
Then 

IU_RPObject 
( 

p_Project_name, 
p_Module_Name, 
p_or ig inating_Modu le_name , 
P_Object_Name, 
p_ob ject_Type_code , 
p_debug_switch 
) ; 

rp_va lidate_Ob j ect ( t_pro j ect_id , t_Module_id , 
t_Originating_Module_id, p_object_name, P_Object_type_cod 
p_Debug_Switch,t_Object_id) ; 

V_Object_ID := t _Object_ID ; 

If P_Debug_Switch = 'V 

Then 

DBMS_OUTPUT.PUT_LINE('RPAcc e ss - Insert Phase Obj, 
Validation = • | | v_object_id) ; 
End if; 
End If; 



_where 

= v_Access_ID and 
= v_Object_ID and 
= v_Method_ID and 
= v_Project_lD and 
= v_Originating_Module_ID and 
= v_Module_ID and 
= v_Block_id and 
= P_Block_sequence Number ; 



EP 0 990 983 A1 



If y_Method_id = 0 or 

v_Method_id is null 
Then 

IU_RPMethod 

( 

p_Pro j ect_name , 
p_Module_Name , 
p_originating_Module_name, 
p_Object_Name, 
p_ob j ect_Type_code , 
p_Method_Type_code , 
p_debug_switch , 
p_Block_Name, 
p_Block_sequence_number 

); 

rp_validate_Method (t_pro ject_id , t_Module_id, 
t_Originating_Module_id, t_object_Id, P_Method_type_code , 
p_Debug_Switch, p_Block_Name, 
p_Block_sequence_Number , t_Method_id) ; 

V_Method_ID := t_Method_ID ; 

If P_Debug_Switch = ' Y ' 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPACCESS - Insert Phase Method 
Validation = ' | | v_method_id) ; 
End If; 
End If; 

If v_Database_id =0 or v_Database_id is null 
Then 

IU_DBDatabase 

( 

p_Database_name , 
p_debug_switch 

) ; 

DB_validate_Database (p_database_name, 
p_Debug_Switch, t_database_id) ; 
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V_Database_ID : = t_database_ID ; 

If P_Debug_Switch = ' Y 1 

Then 

DBMS_OUTPUT.PUT_LINE('RPACCESS - Database = 
t_database_id> ; 
End IF; 
End If; 

If P_Relation_name <> ' ■ 
then 

IU_RPRelation 
( ■ 

p_Project_name, 
p_Module_Name, 
p_originating_Module_name, 
p_Object_Name, 
p_object_type_code, 
p_method_type code, 
p_Database_Name , 
p_Relat ion_Name , 
p_Alias_name, 
p_debug_switch , 
P_Physical_name , 
p_Relation_Type_Code 

); 

DB_validate_Relation(t_Database_id, p_relation_n 
p_Debug_Switch, t_Module_id, t_Relation_id) ; 

v_relation_id : = t_relation_id ; 

If P_Debug_Switch = • y 1 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPAccess - RPRelation 
Validation = • | J t_relation_id) ; 
End If; 
End If; 

IF P_Alias_name is null 
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Then 

v_Al ias_Name := Spaces; 
Else 

v_Alias_Name := p_Alias_name; 
End If; 

IF P_Linkage_Type_Code is null 
Then 

v_Linkage_Type_Code := Spaces; 
Else 

v_Linkage_Type__Code := p_Linkage_Type_ 
End If; 

IF P_Backward_Flag is null 
Then 

v_Backward_Flag := Spaces; 
Else 

v_Backward_Flag := p_Backward_Flag; 
End If; 

IF P_Generic_Flag is null 
Then 

v_Generic_Flag := Spaces; 
Else 

v_Generic_Flag := p_Generic_Flag ; 
End If; 

IF P_Optional_Flag is null 
Then 

v_Optional_Flag := Spaces; 
Else 

v_Optional_Flag := p_Optional_Flag; 
End If; 

IF P_order_Type_Code is null 
Then 



v_Order_Type_Code := Spaces; 
Else 

v_Order_Type_Code := p_Order_Type_Code; 
End If; 



IF P_Sequential_Flag is null 
Then 

v_Sequential_Flag := Spaces; 
Else 

v_Sequential_Flag := p_Sequential_Flag; 
End If; 

IF P_Unique_Flag is null 
Then 

v_Unique_Flag := Spaces; 
Else 

v_Unique_Flag := p_Unique_Flag ; 
End If; 

IF P_Autocommit_Flag is null 
Then 

v_Autocommit_Flag := Spaces; 
Else 

v_Autocommit_Flag := p_Autocommit_Flag ; 
End If; 

IF P_Autolink_Flag is null 
Then 

v_Autolink_Flag := Spaces; 
Else 

v_Autolink_Flag := p_Autolink_Flag ; ' 
End If; 



IF P_Nowarn_Flag is null 
Then 

v_Nowarn_Flag := Spaces; 
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Else 

v_Nowarn_Flag := p_Nowarn_Flag; 
End If; 

IF P_Lock_Type_Code is null 
Then 

v_Lock_Type_Code := Spaces; 
Else 

v_Lock_Type_Code := p_Lock_Type_Code ; 
End If; 

IF P_Index_ID is null 
Then 

v_Index_ID := Zero; 
Else 

v_Index_ID := p_Index_ID; 
End If; 

IF P_Stack_ID is null 
Then 

v_Stack_ID := Zero; 
Else 

v_Stack_ID := p_Stack_ID; 
End If; 

IF P_Audit_Creation_Da.te is null 
Then 

v_Audit_Creation_Date := Sysdate; 
Else 

v_Audit_Creation_Date := p_Audit_Creatxon_Date; 
End If; 

IF P_Audit_Modif ied_Date is null 
Then 

v_Audit_Modif ied_Date := Sysdate; 
Else 



EP 0 990 983 A1 



v_Audit_Modified_Date := p_Audit_Modif ied_Date; 
End If; 

IF P_Audit_Update_Type_Code is null 
Then 

v_Audit_Update_Type_Code := Spaces; 
Else 

v_Audit_Update_Type_Code 
p_Audit_Update_Type_Code ; - 
End If; 

IF P_Audit_Who is null 
Then 

v_Audit_Who := Spaces; 
Else 

v_Audit_Who := p_Audit_Who; 
End if; 

IF P_Audit_: Where is null 
Then 

v_Audit_Where := Spaces; 
Else 

v_Audit_Where := p_Audit_Where ; 
End If; 



INSERT INTO RPAccess 

VALUES (v_Project_ID, 
v_Module_ID, 

v_Originating_Module_ID, 

v_Object_ID, 

v_Method_ID, 

RPAccess_IDS.NEXTVAL, 

v_block_id, 

v_block_sequence_nuraber, 
v_Access_Name , 
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v_Database_ID, 
v_Relation_ID , 
v_Al ias_Name , 
v_Index_ID, 
v_stack_ID, 
v_Linkage_Type_Code , 
v_Backward_Flag , 
v_Generic_Flag , 
v_Optional_Flag, 
v_Order_Type_Code , 
v_Sequential_Flag, 
v_Unique_Flag , 
v_Autocommit_Flag, 
v_Autolink_Flag, 
v_Nowarn_Flag, 
v_Lock_Type_Code , 
v_Audit_Creation_Date , 
v_Audit_Modif ied_Date , 
v_Audit_Update_Type_Code , 
v_Audit_Who, 
v_Audit_Where) ; 

WHEN OTHERS THEN 

/* Handler which executes for all other errors. */ 
v_ErrorCode := SQLCODE; 

v_ErrorText := SUBSTR ( SQLERRM , 1, 200) ; 
INSERT INTO log_table (code, message, api, info) VALUES 
( v_ErrorCode, v_ErrorText, 'RPAccess', 'Oracle error 
occurred ' ) ; 
END IU_RPAccess; 
/ 



H. Data Model structures for the Dynamic Tree view Navigators 

[0060] Figure 4 shows a representation of structures represented in the Data Model which form the cornerstone on 
which the user interface behavior is controlled and managed. For each required node on the tree view, a node and the 
associated information required to determine the data to be displayed and defined and stored in the structures repre- 
sented in this figure. 
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/. Visual Basic Dynamic Tree View Navigator 

[0061] Figure 5 is a screenshot of a tree view. The code- required to create this tree view dynamically (data driven) is 
illustrated in the figure. ' 
[0062] The following code dynamically creates the tree view for the preferred embodiment. This code determines what 
information is to be displayed in the tree view. It references the "CreateNode" procedure (in order to create each node 
in the tree view) which is demonstrated in the description is following this procedure. 

Public Sub LoadNode(ByVal strKey As String, ByVal 
strParentRelation As String) 



' This procedure loads the node and adds 2 images into the 
Lmagelist to be displayed 
' in the treeview. 

' This procedure accepts the following parameters: 

strKey - The key of the parent node. (Ie. 
' >NODE>3 >Pro j ect_Id> l " ) 
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' strParent-Relation - The relation • from which the parent 
information was retrieved. 

• (Ie. The parent relation is 

RPProject when clicking a Module) 



Dim strSQL As String 

Dim intCol As Integer 

Dim lngld As Long 

Dim imglmage As Listlmage 
■Dim strRef Element As String 

Dim strRef Elements ( ) As typElementlnf o 

Dim intElementCount As Integer 

Dim strSortElement As String 

Dim strSortElements As String 

Dim rsResults As rdoResultset 
Resultset for the reference table info. 

Dim rsNodes As rdoResultset 
Resultset for the node table info. 

Dim strRPNodeKey As String 
the primary key info. 

Dim strOpenPicture As String 
the location of the open icon. 

Dim strClosedPicture As String 
the location of the closed icon. 

Dim strRef erenceRelation As String 
the reference relation. 

Dim IngParentID As Long 
the parent node id. 

Dim strName As String 
the name to display for the node. 

Dim IngParentNodelD As Long 
the node's parent id. 

Dim IngNodeld As Long 
the node's id. 



Stores 
Stores 
Stores 
Stores 
Stores 
Stores 
Stores 
Stores 
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Dim strSourceRelation As String 
the relation to fetch the source info. 

Dim strPrimaryKey As String 
the elements that make up the PK. 

Dim strRelations As String 
the concatenated source and reference relations. 

Dim IngLastNodeld As Long 
the previous node viewed. 

Dim blnNodeldChanged As Boolean 
if the node has changed. 

Dim strWhereClause As String 
the WHERE clause. 

Dim strWhereClauseFields As String 
that make up the where clause. 
Dim intPos As Integer 
Dim intArrayCount As Integer 
Dim blnAddToArray As Integer 
Dim strPK As string 
Dim strSeperator As String 
Dim blnDistinct As Boolean 
Dim strNodeName As String 
Dim strProcDir As String ' Delete 
Dim strProcFile As String 
Dim strProcedure As String 
Dim strSortType As String 
Dim strOperators As String 

On Error GoTo ADErr 

' If this is a root node,, clear the treeview. 
If Len(strKey) = o Then 

tvwTables . Nodes . Clear 

IngParentNodelD = ROOT_NODE 
Else 

IngParentNodelD = GetValue ( ">NODE>" , strKey) 
End If 
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1 Check if a connection to the database exists. 
If gobjDBConnect. rdoDB Is Nothing Then Exit Sub 

Screen. MousePointer = vbHourglass 

' Reset this value to false. 
pblnCheckedNodeCount = False 

• Select the Node information from the RPNodes table. 

strSQL = "SELECT Ref erence_Relation , Ref erence_Element , " 

strSQL = strSQL & " Node_Id, Open_Picture , Closed_Picture, 
Sort_Element, " 

strSQL = strSQL & " Node_Relation, Node_E lenient, 
Node_Display_Description, " 

strSQL = strSQL & " Parent_Relation, Parent_Element , 
Value, Seperator, Static_Flag, " 

strSQL = strSQL & " Element_Name, Source_Relation, 
Docuinentation_Flag, " 

strSQL = strSQL & " Display_Flag, Distinct_Flag, 
Relation_Seperator , Operator," 

strSQL = strSQL & " Node_List_Relation , Node_List_XRef , 
Node_Name , " 

strSQL = strSQL & " External_Directory, External_File, 
Procedur e_To_Ca 1 1 " 

strSQL = strSQL & " FROM RPNode_Select_Ref erence_View" 

strSQL = strSQL & " WHERE Parent_Node_Id = " & 
IngParentNodeTD 

strSQL = strSQL & " AND Tree_Group_Code = " & 
StrToFld(pstrTreeType) 

strSQL = strSQL & " ORDER BY Sequence_Number , 
Distinct__Flag, Sort_Sequence, Node_Sequence" 

Set rsNodes = gobjDBConnect. rdoDB . OpenResultset (strSQL, 
rdOpenForwardOnly, rdConcurReadOnly , rdExecDirect) 
strRPNodeKey = "•• 
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Do While Not rsNodes.EOF 
Continuation_Point: • if the node changed (meaning 

display static data), return here. 

' Set this value to an empty string so that we don't 
pass the incorrect 

' primary key. Reset the Nodeld to FALSE. 

strPrimaryKey = 

strRPNodeKey = "" 

strWhereClauseFields = "" 

strSortElements = "" 

Erase strRef Elements ( ) 

blnNodeldChanged = False 

' Store the values. 

IngNodeld = rsNodes ( ,, Node_Id" ). Value 
strOpenPicture = rsNodes ("Open_Picture") . Value & "" 
strClosedPicture = rsNodes ( "Closed_Picture" ). Value 
- strNodeName = rsNodes ("Node_Name") .Value & "" 

■ If the Static_Flag = '0001', then we are displaying 
SELECT, VARIABLES, LITERALS, etc. 

If rsNodes ("Static_Flag") .Value & •"• = YES_STR Then 

If IngLastNodeld <> rsNodes ( "Node_Id") Then 
IngLastNodeld = rsNodes ( "Node_Id" ) & 

strReferenceRelation = 
rsNodes ( "Node_Display_Description" ) .Value & "" 

' If we haven't checked the node count, do it now. 
If pblnCheckedNodeCount = False Then 

If Len(Trim$ (rsNodes ( "Node_List_Relation" ) & "")) 

Then 
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Call CheckNodeCount (strKey, 
rsNodes("Node_List_Relation") & "" , 
rsNodes("Node_List_XRef") & "") 
End If 
End If 

• Used for editable static nodes, such as Original 

Sources. 

' This allows us to edit the source table which 
contains the BLOB. 

strSourceRelation = rsNodes ( "Source_Relation") . Value 



' Check if this node is to be displayed. 

If DisplayNode(rsNodes("Node_List_XRef") .Value & "") 

Then 

On Error Resume Next 

' Load the imagelist with the new items. 

Set imglmage = imlTreePics . Listlmages . Add ( , 
strNodeName & "_closed", LoadPicture (strClosedPicture) ) 

Set imglmage = imlTreePics. Listlmages. Add ( , 
strNodeName & "_Open", LoadPicture (strOpenPicture) ) 

strRelations = strSourceRelation & " ; " & 
strRef erenceRelation 

' Create the node. 

strWhereClauseFields = strWhereClauseFields & ,I <" 
& strOperators 

Call CreateNode( strKey, IngNodeld, strRelations, 
rsNodes("Node_Display_Description") .Value, strPrimaryKey , 
strWhereClauseFields, strNodeName) 
End If 
End If 



Store the relevant information for the nodes. 
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strRef erenceRelation = 
rsNodes("Reference_Relation") .Value &"" 

strSourceRelation = rsNodes ( "Source_Relation" ). Value & 

IngLastNodeld = IngNodeld 
strWhereClauseFields = "" 

' Fetch all of the element_nair.es that make up the 
primary key. 

• Exit the loop if a new Node_Id is found. . 
Do While Not rsNodes.EOF 

If IngLastNodeld <> rsNodes ( "Node_Id" ). Value Then 
' Node Id has changed. 
blnNodeldChanged = True 
Exit Do 
Else 

1 Keep looping to fetch the necesary values. 

IngLastNodeld = rsNodes ("Nodeld") .Value 

strRef Element = rsNodes ( "Ref erence_Element" ). Value 

& mi 

strSortElement = rsNodes ( "Sort_Element" ) .Value & 

1 Check if the array or the string is empty. 
On Error Resume Next 
If UBound( strRef Elements) < 0 And 
Len (Trim$ (strRef Element) ) > 0 Then 

If Err. Number = 9 Then • Subscript out of 

range. 

Err. Clear 
End If 

ReDim Preserve strRef Elements (0) As 
typElementlnf o 

strRefElements(O) -strElement = strRef Element 

strRef Elements(O) . strSeperator = 
rsNodes ("Seperator") .Value & "" 
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strRef Elements (0) . strDistinctFlag = 
rsNodes ( "Distinct_Flag" ). Value & "" 

strRef Elements (0) . strDisplayFlag = 
rsNodes ("Display_Flag") .Value & "" 

strRef Elements (0) . strExternalDir = 
Trim$ (rsNodes ( "External_Directory " ) & "") 

strRef Elements (0) . strExternalFile = 
Trim$ (rsNodes ("External_File") & "") 

strRef Elements (0) . strProcedure = 
Trim$ (rsNodes ( "Procedure_To_Call" ) & "") 

intElementCount = intElementCount + l 
End If 

If Len(strSortType) = 0 Then strSortType = "ASC" 

If Len(strSortElements) = 0 And 
Len(Trim$ (strSortElement) ) > 0 Then strSortElements = 
strSortElement & "-" & strSortType & ";" 

' Check if we want to add the element to the 

array. 

blnAddToArray = True 

For intArrayCount = 0 To UBound (strRef Elements) 
If strRef Elements (intArrayCount) . strElement = 
strRef Element Then 

blnAddToArray = False 
Exit For 
End If 
Next 

' Add the element to the array. 
If blnAddToArray Then 

ReDim Preserve strRef Elements ( intElementCount) 
As typElementlnfo 

strRef Elements ( intElementCount) .strElement = 
strRef Element 

strRef Elements ( intElementCount) . strSeperator = 
rsNodes ("Seperator") .Value & "" 



EP 0 990 983 A1 



strRef Elements ( intElementCount) . strDistinctFlag 
= rsNodes("Distinct_Flag") .Value & "" 

strRef Elements (intElementCount) . strDisplayFlag 
rsNodes("Display_Flag") .Value & "" 

strRef Elements ( intElementCount) . strExternalDir 
Trim$(rsNodes("External_Directory") & •"■) 

strRef Elements ( intElementCount) . strExternalFile 
= Trim${rsNodes("External_File") & "") 

strRef Elements ( intElementCount) . strProcedure = 
Trim$(rsNodes("Procedure_To_Call") & »") 

intElementCount = intElementCount + 1 
End If • 



If AddltemToString (strSortElements, 
strSortElement, " ;") Then 

strSortType = rsNodes("Sort_Type_Code") 
If Len( strSortType) = 0 Then strSortType = "ASC 
strSortElements = strSortElements & 
strSortElement & "-" & strSortType & " ; " 
End If 



' Element_Name returns the elements that are part 
of the primary key. 

If Trim$(rsNodes("Element_Name") & "") <> "" Then 
* Check whether to add the item to the string. 
If AddltemToString (strRPNodeKey, 
rsNodes("Element_Name") .Value, ";") Then 

strRPNodeKey = rsNodes ( "ElementName" ). Value i 
";" & strRPNodeKey 
End If 



' Check if fields have been added to the 
WhereClauseFields variable. 

If Len(strWhereClauseFields) Then 

' If there are fields, this ensures that no 
duplicates are added. 
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If InStr(l, strWhereClauseFields, 
rsNodes ("Node_Relation") & rsNodes ( "Relation_Seperator") & 
rsNodes ("Node_Element") & rsNodes ( "Operator") } = 0 Then 

strWhereClauseFields = strWhereClauseFields 
& (rsNodes ("Node_Relat ion") & "") & 
(rsNodes { "Relation_Seperator" ) .Value & "") & 
(rsNodes ("Node_Element") & "") & (rsNodes("Operator") .Value 
& »») 

strOperators = strOperators & 
rsNodes ("Operator" ) & ";" 

If (rsNodes ("Parent_Relation") & "") = " " 

Then 

' Check if the type is a string value. 

•If rsNodes ("Value") .Type > 7 Or 
rsNodes ("Value") .Type < 2 Then 

1 strWhereClauseFields = 
strWhereClauseFields & StrToFld( (rsNodes ("Value") & "")) & 

'Else 

strWhereClauseFields = 
strWhereClauseFields & (rsNodes ( "Value" ) & "") & ";" 
'End If 
Else 

strWhereClauseFields = 
strWhereClauseFields & (rsNodes ( "Parent_Relation") & "") & 
(rsNodes ("Relation_Seperator") .Value & "") & 
(rsNodes ("Parent_Element") & "") & " ; " 
End If 
End If 
Else 

1 Add the first field to the WhereClauseFields 
that is part of the where clause. 

If Len (rsNodes ("Node_Relation") S ""). Then 
strWhereClauseFields = strWhereClauseFields 
& (rsNodes ( "Node_Relation" ) &"")&. 
(rsNodes ("Relation_Seperator") .Value & "") & 
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(rsNodes(»Node_Element") & "") & (rsNodes ("Operator") .Value 
& "») - 

strOperators = strOperators & 
rsNodes ("Operator") & " ; » 

If (rsNodes ( "Parent_Relation") & »•') = » » 

Then 

'If rsNodes ("Value") .Type > 7 Or 
. rsNodes ("Value") .Type < 2 Then 

' strWhereClauseFields = 
strWhereClauseFields & StrToFld ( (rsNodes ( "Value" ) & "") ) & 

'Else 

strWhereClauseFields = 
strWhereClauseFields & (rsNodes ( "Value" ) & "") & 
•End If 
Else 

StrWhereClauseFields = 
strWhereClauseFields & (rsNodes ( "ParentRelation") & "") & 
(rsNodes ("Relation_Seperator") .Value & "") & 
(rsNodes ("Parent_Element") & »») & » ; » 
End If 
End If 
End If 
End If 

rsNodes . MoveNext 
End If 
Loop 

On Error Resume Next 

' Load the imagelist with the new items. 

Set imglmage = imlTreePics . Listlmages . Add ( , 
strNodeName & »_Closed", LoadPicture (strClosedPicture) ) 

Set imglmage = imlTreePics. Listlmages .Add ( , 
strNodeName & "_Open", LoadPicture (strOpenPicture) ) 
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' Return the primary key values into this string. We 
will remove any duplicate fields. 

strPK = ReturnPrimaryKey (strRPNodeKey) 

' Select the detailed information from the Source 
Relation. 

strSQL = "SELECT " 

For intArrayCount = 0 To UBound (strRef Elements) 

If UBound (strRef Elements) > 0 And StrSQL <> "SELECT 
" Then strSQL = strSQL & ", " 

If strRef Elements ( intArrayCount) . strDistinctFlag = 
YES_STR Then 
' blnDistinct = True 

strSQL = strSQL & "DISTINCT (" & 
strRef Elements ( intArrayCount) .strElement & ")" 
Else 

strSQL = strSQL S. 
Trim$( strRef Elements ( intArrayCount) .strElement) 
End If 

• Remove duplicates from the primary key. 
strPK = RemoveDuplicates (strPK, 
strRef Elements ( intArrayCount) . strElement) 
Next 

If Not blnDistinct Then 
If Len (strPK) Then 

If strSQL = "SELECT " Then 

strSQL .= strSQL & strPK 
Else 

If Right? (strSQL, 2) = ", " Then strSQL = 
Left$ (strSQL, Len (strSQL) - 2) 

strSQL = strSQL & " , " & strPK 
End If 
End If 
End If 

strSQL = strSQL & " FROM " & strRef erenceRelation 
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' Add the WHERE clause of the SQL statement. 

If no node was clicked (form loaded), then do the 
first part of the IF statement. 
If Len(strKey) = o Then 

If pstrTreeType = PROJECT_TREE Then 

strSQL = strSQL & » WHERE " & Lef t$ (strRPNodeKey , 
Len(strRPNodeKey) - i) = & pingProjectID 

End If 
Else 

Ensure that there is a where clause, 
strwhereclause = ReturnWhereclause (strKey, 
strWhereClauseFields, strParentRelation, strOperators) 
If Trim$ (strwhereclause) <> <"■ Then 

strSQL = strSQL & " WHERE " & strwhereclause 
End If 
End If 



' Add the sort criteria. 
StrSQL = strSQL & " ORDER BY " & 
ReturnSortElements ( strSortElements ) 



Set rsResults = 
gobjDBConnect.rdoDB.OpenResultset(strSQL r rdOpenForwardOnly , 
rdConcurReadOnly, rdExecDirect) 

If rsResults. EOF Then 

If strReferenceRelation = "RPProject" Then 
MsgBox "There are no Projects in the system." 
Screen. MousePointer = vbArrow 
Exit Sub 
End If 
End If 



strRelations = strSourceRelation & ";" & 
strReferenceRelation 
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' . Reset the array 

On Error GoTo ADErr 

Do While Not rsResults. EOF 



strPrimaryKey = "" 

' Create the primary key. 

For intCol = 0 To rsResults . rdoColumns . Count - 1 
' Build the primary key from the resultset 
ensuring all applicable fields are used. 

intPos = InStr(l, strRPNodeKey, 
rsResults ( intCol) .Name, vbTextCompare) 
If intPos > 0 Then 
If intPos = 1 Then 

strPrimaryKey = strPrimaryKey & ">" & 
rsResults (intCol) .Name & ">" & rsResults (intCol) .Value 
Else 

If Mid$ (strRPNodeKey, intPos -1,1)= ";" 

Then 

strPrimaryKey = strPrimaryKey & ">" & 
rsResults (intCol) .Name & ">" & rsResults (intCol) .Value 
Else 

intPos = InStr( intPos + l, strRPNodeKey, 
rsResults ( intCol) .Name, vbTextCompare) 
If intPos > 0 Then 

strPrimaryKey = strPrimaryKey & ">" & 
rsResults (intCol) .Name & ">" & rsResults ( intCol) .Value 
End If 
End If 
End If 
End If 



strName = "" 

For intArrayCount = 0 To UBound (strRef Elements) 
If strRef Elements ( intArrayCount) . strDisplayFlag 
NO_STR Then 
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If 

Trim$ (strRef Elements ( intArrayCount) .strElement) <> •"' Then 

If Len (strName) And 
Len (Trim$ (rsResults (strRef Elements ( intArrayCount) . strElement 
). Value & "")) > o Then strName = strName & strSeperator 

strName = strName & 
TrimS (rsResults (strRef Elements ( intArrayCount) .strElement) .va 
lue & "") 

' If the seperator is a period with no leading 
or trailing spaces, then 

1 don't add the trailing and leading space 
that we do with the other seperators. 

If strRef Elements ( intArrayCount) .strSeperator 

= " . " Then 

strSeperator = "." 
Else 

strSeperator = " " & 
Trim$ (strRefElements( intArrayCount) . strSeperator) & " " 
End If 
Else 

' Check if we call the expression editor. 
If strRef Elements ( intArrayCount) . strProcedure 
<> "" And strName = *'" Then 
strName = 

GetExpression (strRef Elements (intArrayCount) .strProcedure, 
strRef Elements (intArrayCount) . strExternalDir , 
strRef Elements (intArrayCount) . strExternalFile , 
strPrimaryKey, strRef erenceRelation) 
End If 
End If 
End If 
Next 

* Create the node. 

strWhereClauseFields = strWhereClauseFields & "<" & 
strOperators 
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Call CreateNode(strKey, IngNodeld, strRelations, 
strName, strPrimaryKey, strWhereClauseFields , strNodeName) 
rsResults .MoveNext 
Loop 

End If 

If blnNodeldChanged Then GoTo Continuation_Point 

On Error Resume Next 
rsNodes . MoveNext 

Loop 

rsNodes. Close 

On Error Resume Next 

rsResults. Close 

Screen. MousePointer = vbDefault 
Exit Sub 
ADErr: 

Dim errError As rdoError, strMsg As String 
For Each errError In rdoEngine . rdoErrors 

strMsg = strMsg & errError . Number & " - " & 
errError. Description & vbCr 
Next 

Screen. MousePointer = vbArrow 

MsgBox strMsg, vbOKOnly + vbExclamation , App . ProductName 
End Sub 



[0063] The following code is preferably used to create the node (Physically) in the treeview. 
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' Private Sub CreateNode (ByVal strKey As String, ByVal 
IngNodeld As Long, ByVal strRelations As String, ByVal 
strName As String, ByVal strPrimaryKey As String, 
strWhereClauseFields As String, strNodeName As String) 

• This procedure creates the physical node on the treevi 
form. 

Dim nodX As Node • Create variable. 

Dim strCurNodeKey As String 

Dim intPos As Integer 

Dim strReferenceRelation As String 

strCurNodeKey = »>NODE>" & IngNodeld 

intPos = InStr(l, strRelations, " ; " ) 

strReferenceRelation = Mid$ (strRelations, intPos + i, 
Len (strRelations) - intPos) 

' If strRPNodeKey is blank, then don't include the next 
statement. 

If Trim$ (strPrimaryKey) <> "" Then 

If Right$ (strCurNodeKey, l) = '•>» Then strCurNodeKey = 
Left$ (StrCurNodeKey, Len ( strCurNodeKey) - 1) 

strCurNodeKey = StrCurNodeKey & strPrimaryKey 
Else 

intPos = InStr(l, strKey, »>N0DE>", vbTextCompare) 
intPos = InStr(intPos + Len ( ">NODE>") , strKey, ">") 
On Error Resume Next 

strCurNodeKey = strCurNodeKey & Mid$ (strKey, intPos, 
(Len(strKey) - intPos) + l) 
End If 

strCurNodeKey = tvwTables .Nodes . Count & strCurNodeKey 
' If strKey is blank, then the node is a root node. 
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On Error Resume Next 

If Len(strKey) <> 0 Then 

Set nodX = twTables. Nodes. Add (strKey, twChild, 
strCurNodeKey, strName, strNodeName & "_Closed") 
Else 

Set nodX = twTables .Nodes .Add ( , , strCurNodeKey, strName, 
strNodeName & "_Closed") 
End If 

nodX.Tag = strRelations & ">" & stirWhereClauseFields 
End Sub 



J. Visual Basic Dynamic Property Sheet 

[0064] The following code dynamically creates a Property Sheet for the preferred embodiment of the invention. 
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Private Sub LoadData (ByVal strWhereClause As String) 



• This procedure loads the data in the grid. If IngValue is 
passed, 

1 then the data is loaded because the user selected an item 
from the 

• cboObjects combo box. 

• The grid contains the following information: 
' Field 0 - Field Name (ie. Project_ID) 

' Field 1 - value (ie. oms for Project_ID = l if that is the 
associated Pro ject_Nane) 

' Field 2 - Control type to be used. (ie. Display value in 
a combo box, text box, elipsis) 

' Field 3 - Value (same as Field 1, but used to compare if 
the fields were changed. ) 
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• Field 4 - Size of field (ie. 10 for Varchar2 (10) ) 

' Field 5 - Data type (ie. Varehar2, Numeric, Timestamp, 

etc. ) 

■ Field 6 - Modifiable (ie. Allow modifications to this 
field?) 

' Field 7 - Primary Key? (ie. Is this field part of the 
primary key? 

' Field 8 - Actual value from main table. 
' Field 9 - Source view or table (ie. 
RPCross_Ref erence_Decode_View) 



Dim cl As rdoColumns ' 
rdocolumns collection 

Dim intCurrent As Integer ' 
indexes 

Dim strSQL As String 1 SQL 

string. 

Dim rsCrossReference As rdoResultset ' 

Resultset for RPCross_Ref erence_View 

Dim strFieldNAME As string 

Dim typArray() As ptypCrossReference 

Dim intCount As Integer 

Dim intCurPosition As Integer 

Dim strValue As String 

Dim blnArrayEmpty As Boolean 

Dim blnAlternateValueFound As Boolean 

Dim intAlternatePosition As Integer 

Dim blnDisplayValue As Boolean 

Dim strWhere As String 

Dim strSource As String 

Dim strElementName As String 

Dim intLessNumRows As Integer ' If the 

column is not to be displayed, 
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subtract this number from the current row 

On Error GoTo LoadData_ER 
pblnDisplayControl = False 
Call ClearGrid 

grdData.ColAlignment(l) = o • Left align. 
If Len(strWhereClause) Then 

strSQL = Me.SQLCriteria(strWhereClause) 
Else 

strSQL = Me.SQLCriteria(»") 
End If 

' Create the resultset for the table. 

set rsResult = gobjDBConnect . rdoDB. OpenResultset (strSQL, 
rdopenForwardOnly, rdConcurReadOnly , rdExecDirect) 
Set cl = rsResult. rdoColumns 

• Fetch the values from the lookup table. 
strSQL = "SELECT * FROM RPCross_Ref erence_view» 
strSQL = strSQL & WHERE UPPER (Relation_Name) = » & 
UCase (StrToFld (Lef tS (Me . SourceTable, InStr ( 1 , 
Me.SourceTable, ";") - l) ) ) 

Set rsCrossReference = 

gobjDBConnect . rdoDB . OpenResultset (strSQL, rdOpenForwardOnly, 
rdConcurReadOnly, rdExecDirect) 

blnArrayEmpty = True 

Do While Not rsCrossReference. EOF 

blnArrayEmpty = False 

intCount = intCount + l 

ReDim Preserve typArray( intCount) 

typArray( intCount) .Control_Type_Code = 
rsCrossReference ("Control_Type_Code") .Value & "» 
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typArray ( intCount) .Display_Flag '= 
5 rsCrossReference("Display_Flag") .Value & "" 

typArray ( intCount) . Element_Name = 
rsCrossReference("Element_Name") .Value & "" 
typArray (intCount) . Full_English_Desc = 
10 rsCrossReference ("Full_English_Desc") .Value & "" 

typArray (intCount) . Ref erence_Group = 
rsCrossReference ("Ref erence_Group" ) .Value & "" 
15 typArray (intCount) .Modif iable_Flag = 

rsCrossReference("Modifiable_Flag") .Value & "" 
typArray (intCount) . Ref erence_Code = 
■ rsCrossReference("Reference_Code") .Value & "" 
20 typArray ( intCount) . Primary_Key_F lag = 

rsCrossReferehce("Primary_Key_Flag") .Value & "" 
typArray (intCount) .Ref erence_Database = 
25 rsCrossReference ( "Ref erence_Database") .Value & "" 

typArray (intCount) .Ref erence_Relation = 
rsCrossReference ( "Ref erence_Relation") .Value & "" 
typArray (intCount) .Ref erence_Element = 
30 rsCrossReference ("Ref erence_Element") .Value & "" 

typArray (intCount) .Ref erence_Display_Element = 
rsCrossRef erence ( "Ref erence_Display_Element" ) .Value & 

typArray (intCount) .NodelD = 
rsCrossReference ("Node_Id") .Value & "" 

typArray ( intCount) . ParentNodelD = 
rsCrossReference ( "Parent_Node_Id") .Value & "" 
40 typArray (intCount) .TreeGroupCode = 

rsCrossReference ("Tree_Group_Code") .Value & "" 

rsCrossRef erence. MoveNext 
Loop 

45 rsCrossRef erence. Close 

Set rsCrossReference = Nothing 

50 ' Insert the data into the grid 

For intCurrent = 0 To rsResult.rdoColumns. Count - 1 
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If intCurrent > pintRowsVisible - l Then > A dd a 

new row for each column in the 

grdData.Rows = intCurrent + l - intLessNumRows 
' rdoColumns collection. 

grdData.RowHeight( intCurrent - intLessNumRows) = 280 
End If 

On Error Resume Next 

grdData.Row = intCurrent - intLessNumRows 

If Err. Number = 30009 Then • Invalid row value. 

grdData.Rows = intCurrent + l - intLessNumRows 
' rdoColumns collection. 

grdData.RowHeight( intCurrent - intLessNumRows) =280 

grdData.Row = intCurrent - intLessNumRows 

Err. Clear 

On Error GoTo 0 
End If 

' Store the field name and value to be used later. 

strFieldNAME = cl (intCurrent) . Name 

On Error Resume Next 

strValue = cl (intCurrent) .Value 

On Error GoTo 0 

grdData.Col = 2 

' For the current field, loop through the array and see if 
the field has any related 

' values in the cross reference table. This allows us to 
later display the value 

* rather than the code. 

strSource = 0 

intCurPosition =0 

intAlternatePosition =0 

If Not blnArrayEmpty Then 

For intCount = 1 To UBound (typArray) 
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If Trim$(UCase(typArray (intCount) . Element_Name) ) = 
UCase(strFieldNAME) Then 

If typArray (intCount) . Ref erence_Code = strValue Then 
strSource = RPCROSS_REFERENCE_VIEW 
blnDisplayValue = True 
intCurPosition = intCount 
Exit For 
Else 

strSource = RPCROSS_REFERENCE_VIEW ' CV 
End If 

* If there is a value for the Reference Relation and 
Element, then retrieve this value 

• (description) from the database. This is used when 
displaying ID's from the database. 

If Len(Trim$ (typArray ( intCount) . Ref erence_Relation) ) 
> 0 And Len (Trim$ (typArray (intCount) .Ref erence_Element) ) > 0 
Then 

' If we are getting a blob, then do the following. 
If typArray (intCount) . Control_Type_Code = 
CO NTRO L_BLO B Then 

strSQL = "{CALL RPBlob_Extract (P_Blob_Id=>" & 
strValue & P_FileName=> 1 " & strValue & ".txt')}" 
Dim intVal As Integer 

intVal = gobjDBConnect.COREExecute(strSQL) 
If intVal <> False Then 
1 Read the textfile. 

Open GetSetting ( "Chameleon" , "Options", 
"Temporary Directory", RetrieveTempDir) & "\" & strValue & 
".txt" For Binary As #1 

strValue = Input (LOF( 1) , #1) 
Close #1 
End If 
Else 

' Retrieve the PK values for the table from 
which we are fetching the description. 
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strSQL = "SELECT * FROM 
RPCross_Reference_Decode_View WHERE" 

strSQL = strSQL & " Node_Id = » & 
typArray (intCount) .Node ID 

strSQL = strSQL & » AND Tree_Group_Code = 

i 0 099"» 

Set rsCrossReference = 
gob j DBConnect . rdoDB . OpenResultset ( strSQL , rdOpenForwardOnly , 
rdConcurReadOnly, rdExecDirect) 

• Select the value from the source table. 

StrSQL = "SELECT " & 
typArray ( intCount) . Ref erence_Display_Element 

strSQL = strSQL & " FROM " & 
typArray (intCount) .Ref erence_Relation 

strSQL = strSQL & » WHERE " 

strWhere = "" 

Do While Not rsCrossReference. EOF 
1 Create the WHERE clause. 
strElementName = "" 
strElementName = 
rsCrossReference ( "Node_Element " ) 

If InStr(l, strWhere, " " & 
(rsCrossReference ( "Parent_Element» ) ) & » = - & 
rsResult (strElementName) ) = o Then 

If Len (strWhere) Then strWhere = strWhere & 

" AND " 

strWhere = strWhere & 
(rsCrossReference("Parent_Element") ) & '< = - & 
rsResult (strElementName) 
End If 

rsCrossReference. MoveNext 
Loop 

If Len (strWhere) Then 

strSQL = strSQL & strWhere 
Else 
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strSQL = Left$ (strSQL, Len(strSQL) - 7) 
End If 

Set rsCrossRef erence = 
gob j DBConnect . rdoDB . OpenResultset ( strSQL , rdOpenForwardOnly , 
rdConcurReadOnly , rdExecDirect) 

' Check if a resultset was populated. 

If Not rsCrossRef erence. EOF Then 

strValue = rsCrossRef erence (0) .Value & "" 

End If 

• Concatenate the NODE_ID to strSource for later 

use. 

strSource = RPCROSS_REFERENCE_DECODE_VIEW & "-" 
& typArray (intCount) .NodelD 



intAlternatePosition = intCount 
blnAlternateValueFound = True 
End If 
End If 

If typArray ( intCount) . Display_Flag = NO_STR Then 

intAlternatePosition = intCount 

blnAlternateValueFound = True 
End If 

If typArray (intCount) .Modif iable_Flag = N0_STR Then 

intAlternatePosition = intCount 

blnAlternateValueFound = True 
End If 

If typArray ( intCount) . Primary_Key_Flag = YES_STR 

Then 

intAlternatePosition = intCount 
blnAlternateValueFound = True 
End If 

If typArray (intCount) . Control_Type_Code <> 
CONTROL_TEXT Then 

intAlternatePosition = intCount 
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blnAlternateValueFound = True 
End If 
End If 
Next 
End If 

If intCurPosition = 0 And blnAlternateValueFound = 
Then 

intCurPosition = intAlternatePosition 
End If 

' If no match was found, enter the value from the 
SourceTable, otherwise, use the value 
' from the cross reference table. 
If intCurPosition = 0 Then 

grdData.Text = CONTROL_TEXT 

grdData.Col = 0 

grdData.Text = strFieldNAME 

grdData.Col = l 

If cl(intCurrent) .Type = rdTypeTIMESTAMP Then 
grdData.Text = Format(cl (intCurrent) .Value & " 

GetSetting ("Chameleon", "Options", "DateFormat", 

"DD/MM/YYYY") ) 

grdData.Col = 3 

grdData.Text = Format (cl ( intCurrent) . Value & " 
GetSetting ("Chameleon" , "Options", "DateFormat", 
"DD/MM/YYYY") ) 
Else 

grdData.Text = cl (intCurrent) .Value & "" 

grdData.Col = 3 
Enter the value in the fourth column as well so that 

grdData.Text = cl (intCurrent) .Value & "" 
can verify if the value has changed. 
End If 

grdData.Col = 4 
Store the size of the data in this column, so as to 
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If cl(intCurrent) :Type = rdTypeTIMESTAMP Then 

grdData.Text = 19 
Else 

grdData.Text = cl ( intCurrent) . Size & "" 1 
limit what can be entered into the textbox. 
End If 

grdData.Col = .5 

grdData.Text = cl ( intCurrent) . Type & "" 
grdData.Col = 6 
grdData.Text = YES_STR 
grdData . Col = 8 

grdData.Text = cl ( intCurrent) . Value & "" 
grdData.Col = 9 
grdData.Text = strSource 
Else 

If typArray (intCurPosition) . Display_Flag = YES_STR Then 
grdData.Text = 
typArray ( intCurPosition) . Control_Type_Code 
grdData.Col =0 
grdData.Text = strFieldNAME 
grdData.Col = 1 

If blnAlternateValueFound = False Or blnDisplayValue 

Then 

• If we are to display a description from the 
full_english_desc field. 

blnDisplayValue = False 

grdData.Text = 
typArray (intCurPosition) . Full_English_Desc 

grdData.Col = 3 

grdData.Text = 
typArray (intCurPosition) . Full_English_Desc 
Else 

blnAlternateValueFound = False 

If cl( intCurrent) .Type = rdTypeTIMESTAMP Then 
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grdData.Text = Format (strValue, 
GetSetting( "Chameleon", "Options", "DateFormat" , 
"DD/MM/YYYY" ) ) 

grdData.Col = 3 

grdData.Text = Format (strValue , 
GetSetting("PROGNAME", "Options", "DateFormat", 
"DD/MM/YYYY")) 
Else 

grdData.Text = strValue 
grdData.Col = 3 
grdData.Text = strValue 
End If • 
End If 

grdData.Col = 4 
Store the size of the data in this column, so as to 

If cl (intCurrent) .Type = rdTypeTIMESTAMP Then 
limit what can be entered into the textbox. 
grdData.Text = 19 

Else 

If typArray(intCurPosition) . Control_Type_Code 
CONTROL_BLOB Then 

grdData.Text = 0 
Else 

grdData.Text = cl (intCurrent) . Size & "" 
End If 
End If 

grdData.Col = 5 

grdData.Text = cl ( intCurrent) . Type & "" 

grdData.Col = 6 

grdData.Text = 
typArray (intCurPosition) .Modif iable_Flag 

grdData.Col = 7 

grdData.Text - 
typArray ( intCurPosition) . Primary_Key_Flag 

grdData.Col = 8 

On Error Resume Next 
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grdData.Text = cl ( intCurrent) . Value & "" 
On Error GoTo 0 
grdData.Col = 9 
grdData.Text = strSource 
Else 

intLessNumRows = intLessNumRows + 1 
End If 
End If 
Next 

grdData.Col = 0 

If grdData.Text = Then 

grdData.Rows = grdData.Rows - 1 
End If 

' Reset the column 
grdData.Col =0 
grdData.Row = 0 

' Set the column width. 

grdData.ColWidth(l) = (grdData . Width * 0.6) - 80 

cboCombo. Visible = False 
txtText .Visible = False 
cmdElipsis .Visible = False 

Exit Sub 

LoadData_ER: 

MsgBox Err. Number & " - " & Err . Description , vbOKOnly + 
vbExclamation, App. ProductName 

End Sub 



K. Code Segment for Forward Engineering Component 

[0065] The following code manages dynamically generates PL/SQL source code based on the objects that have been 
design recovered and stored in the CORE Chameleon repository. This specific excerpt is designed to create the equiv- 
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alent SQL "SELECT" statement component if the newly generated Oracle PL/SQL report. 

CREATE OR REPLACE PROCEDURE RPGEN_GET SELECT ( 

p_project_id 
RPEvent_Detail . Project_ID%Type , 

p_module_id 
RPEvent_Detail . Module_ID%Type , 

p_Debug_Switch Varchar2 
Default null , 

p_FileDir VARCHAR2 Default 

' c: \core\Temp ' , 

p_FileName VARCHAR2 default 

• Report. sql' ) AS 



DBDatabase . Database_Name%Type ; 
DBRelation.Relation_Name%Type; 
DBElement . Element_Name%Type ; 

RPRelation. Alias_Name%Type ; 



v_Database_Name 
v_Relation_Name 
v_Element_Name 
v_Alias_Name 
v_Related_Database_Name 
DBDatabase . Database_Name%Type ; 

v_Related_Relation_Name DBRelation. Relation_Name%Type ; 
v_Related_Element_Name DBElement . Element_Name%Type 

v_Variable_Name 
RPVariable.Variable_Name%Type; 

v_stack_id RPStack . Stack_ID%Type ; 

v_FileHandle UTL_FILE . FILE_TYPE ; 



v_Called_Module 
t Counter 



Varchar2(l) default 'Y'; 

Integer default 0; 
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T_expression varchar2 (2000) ; 

Cursor C_RPRELATION_FIELD Is 

SELECT Relation_Name, Alias_Name, Element_Name 

FROM RPRELAT ION_F I ELD_VI EW 

WHERE Project_id = p_project_id AND 

Module_id = p_module_id 



C_RPAccess Is 

SELECT Relation_Name, Alias_Name 
FROM RPAccess_VIEW 

WHERE Project_id = p_project_id AND 

Module_id = p_module_id 

ORDER BY Access_ID; 



Cursor C_RPACCESS_FIELD Is 

SELECT Database_Name , Relation_Name, Element_Narae, 

Related_Database_Name, Related_Relation_Name , 
Related_Element_Name, Stack_id 

FROM RPACCESS_FIELD_VIEW 

WHERE Project_id = p_project_id AND 

Module_id = p_module_id 

Order By Access_id; 

Cursor C_RPSORT_OPTION Is 

SELECT Relation_Narae, Element_Name , Var iable_Name 
FROM RPSORT_OPTION_VIEW 

WHERE Project_id = p_project_id AND 

Module_id = p_module_id 

Order By SORT_ORDER; 



Begin 

50 

DBMS_OUTPUT. ENABLE (10 00 000) ; 



55 
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— Get The elements That are to be selected 



v_FileHandle := UTL_FILE.FOPEN(p_FileDir, p_FileName, 'a'); 
Open C_RPRELATION_FIELD; 
t_Expression := 'SELECT '; 

UTL_FILE.PUT_line(v_FileHandle, T_expression ); 
t_expression := 1 1 ; 

«RPRELATION_FIELD_LOOP» 
Loop 

Fetch C_RPRELATION_FIELD Into v_Relation_Name , 
v_Alias_Name, v_Element_Name; 

Exit RPRELATION_FIELD_LOOP When C_RPRELATION_FIELD%NOTFOUND; 



If V_Alias_Name != ' ' 
Then 

T_expression := T_expression~| | ' 
V_Alias_Name || '.' || v_Element_Name; 
Else 

T_expression := T_expression | | ' 
V_Relation_Narae || '.' || v_Element_Name; 
End If; 



UTL_FILE.PUT_line(v_FileHandle, t_expression ); 
t_expression := ' ' ; 



End Loop RPRELATION_FIELD_LOOP; 
Close C_RPRELATION_FIELD; 



— Get The Relation That are to be selected from 
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Open C_RP ACCESS; 
t_Expression := 1 FROM 1 ; 

UTL_FILE.PUT_line(v_FileHandle, T_expression ); 
t_expression := ' '; 

«RPACCESS_LOOP>> 
Loop 

Fetch C_RPACCESS Into v_Relation_Name , v_Alias_Name; 

Exit RPACCESS_LOOP When C_RPACCESS%NOTFOUND; 

T_expression := T_expression | | 1 ' | | 

V_Relation_Name | | ' 1 | | v_Alias_name; 

UTL_FILE.PUT_line(v_FileHandle, t_expression ) ; 
t_expression := ' ' ; 

End Loop RPACCESS_LOOP; 
Close C_RPACCESS; 



— Get The Items That Make up the Where Clause of the select 
statement for the Program 

Open C_RPACCESS_FIELD; 
t_Counter := 0; 
«RPACCESS_FI ELD_L00P» 
Loop 

Fetch C_RPACCESS_FIELD Into v_Database_narae , 
V_Relation_name, v_Element_Name, 

v_Related_Database_name , 
V_Related_Relation_name, v_Related_Element_Name, 

v_Stack_id; 

Exit RPACCESS_FIELD_LOOP When C_RPACCESS_FIELD%NOTFOUND ; 
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t_Counter := t_Counter + 1; 

If t_Courvter = 1 
Then 

t_Expression := ' WHERE '; 

UTL_FILE.PUT_line(v_FileHandle, T_expression ); 
t_expression := ' '; 
End If; 

If V_STACK_ID != 0 
Then 

T_expression := T_expression | | ' 1 | | 

V_Relation_Name j | ' . ' | | v_Element_name | | ' = • ; 

RP_Get_Stack_Detail ( p_project_id, p_module_id , 
p_Module_id, v_stack_id, 0, p_Debug_Switch, T_expression , 
v_called_module ) ; 
Else 

T_expression := T_expression j | ' 1 | | 

V_Relation_Name | | 1 . ' | | v_Element_name | | ' = • | | 
V_Related_Relation_Name | | || v_Related_Element_name ; 

End If; 

UTL_FILE.PUT_line(v_FileHandle, t_expression ); 
t_expression := * ' ; 

End Loop RPACCESS_FIELD_LO0P; 
Close C_RPACCESS_FIELD; 



— Get The Sort Options That are to be used In the Program 

Open C_RPSORT_OPTION; 
t_Counter := 0; 
«RPS0RT_0PTION_L0OP» 
Loop 
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Fetch C_RPSORT_OPTION Into V_Relation_name , v_Element_Name , 
v_variable_Name ; 

Exit RPSORT_OPTION_LOOP When C_RPSORT_OPTION%NOTFOUND ; 

t_Counter := t_Counter + 1; 

If t_Counter = 1 
Then 

t_Expression := ' ORDER BY ' ; 

UTL_FILE.PUT_line(v_FileHandle, T_expression ); 
t_expression := ' 1 ; 
End If; 

If V_Variable_Name != ' ■ 
Then 

T_expression := T_expression | | ' ' | | 

V_Variable_Name ; 
Else 

T_expression := T_expression | | 1 ' | | 

V_Relation_Name | | ' . ' | | v_Element_name;. 
End If; 

UTL_FILE.PUT_line(v_FileHandle, t_expression ) ; 
t_expression := ' '; 

End Loop RPSORT_OPTION_LOOP; 
Close C_RPSORT_OPTION; 



UTL_FILE . FCLOSE ( v_FileHandle) ; 

Return ; 

EXCEPTION 
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— Handle the UTL_FILE exceptions meaningfully, and make 
sure 

— that the file is properly closed. 
WHEN UTL_FILE.INVALID_PATH THEN 

UTL_FILE . FCLOSE ( v_FileHandle) ; 
RAISE_APPLICATION_ERROR ( -2 0060 , 

' RPGen_Get_Select : Invalid 

Path ' ) ; 

WHEN UTL_FILE. INVALID_MODE THEN 
UTL_FILE. FCLOSE(v_FileHandle) ; 
RAISE_APPLICATION_ERROR (-20061, 

'RPGen_Get_Select: Invalid 

Mode * ) ; 

WHEN UTL_FILE. INVALID_FILEHANDLE THEN 
UTL_FILE . FCLOSE (v_FileHandle) ; 
RAISE_APPLICATION_ERROR(-2 0062 , 

' RPGen_Get_Select : Invalid File 

Handle ' ) ; 

WHEN UTL_FILE.INVALID_OPERATION THEN 
UTL_FILE.FCLOSE(v_FileHandle) ; 
RAISE_APPLICATION_ERROR(-20063 , 

'RPGen_Get_Select: Invalid 

Operation ' ) ; 

WHEN UTL_FILE . READ_ERROR THEN 
UTL_FILE . FCLOSE (v_Fi leHandle) ; 
RAISE_APPLICATION_ERROR(-2 0064 , 

'RPGen_Get_Select: Read Error'); 
WHEN UTL_FILE.WRITE_ERROR THEN 
UTL_FILE. FCLOSE (v_FileHandle) ; 
RAI SE_APPLI CAT ION_ERROR (-20065, 

•RPGen_Get_Select: Write 

Error 1 ) ; 

WHEN UTL_FILE.INTERNAL_ERROR THEN 
UTL_FILE. FCLOSE (v_FileHandle) ; 
RAISE_APPLICATION_ERROR (-2 00 66 , 
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'RPGen_Get_Select: Internal 

5 Error ' ) 

WHEN OTHERS THEN 

UTL_FILE . FCLOSE (v_FileHandle) ; 
RAISE_APPLICATION_ERROR ( -2 0069 , 
10 'RPGen_Get_Select: Unknown 

Error ' ) ; 

END RPGEN_GET_SELECT ; 
/ " 

L. Generated PL/ SQL Source Code 

20 

The following sample PL/ SQL program represents the 
converted report, from its original QUIZ format. All of the 
program code is automatically generated, without any manual 
25 intervention. 



PROJECT NAME : Sales History 

PROJECT MANAGER : 

PROJECT LEADER : 

PROJECT START DATE : 25-AUG-98 

PROJECT DESCRIPTION : 0 



MODULE NAME : ORDERREP 

MODULE SOURCE : sales. qzs 

MODULE TYPE : quiz 

MODULE DESCRIPTION : 



55 
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Prompts 

DECLARE 

CORE SOFTWARE Variables 

v_FileHandle UTL_FILE. FILEJTYPE; 

Variables that hold .information defined in the 

original report 

D_DISCOUNT_PERCENT numeric(2); 
D_DISCOUNT numeric(7); 

Variables that hold information fetched in the cursor 



T_ORDER_ORDER_AMT 
ORDER . ORDER_AMT%Type ; 
T_ORDER_ORDER_ID 
ORDER. ORDER_ID%Type ; 

CURSOR C_Report_Cursor Is 
Select 

ORDER . ORDER_AMT , 
ORDER. ORDER_ID 

From 

ORDER ; 



BEGIN 



Open a file to store output 

V_FileHandle := UTL_FILE. FOPEN ("C:\TEMP", "ORDERREP.TXT") ; 
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Open Cursor and Fetch, Exit when no more data 

OPEN c_Report_Cursor ; 
LOOP 

Fetch C_Report_Cursor Into 
T_ORDER_ORDER_AMT , 
T_ORDER_ORDER_I D ; 

EXIT WHEN C_Report_Cursor%NOTFOUND; 



Definitions of Variables 

D_DISCOUNT_PERCENT := 7 / 100; 



If T_ORDER_ORDER_AMT > 10000 
then 

D_DISCOUNT := D_DISCOUNT_PERCENT * 
T_ORDER_ORDER_AMT ; 
else 

D_DISCOUNT := -0; 
End If; 



Conditions to satisfy output criteria 

Write Record to file 

UTL_FILE . PUT_Line ( v_FileHandle, T_ORDER_ORDER_ID || 
T_ORDER_ORDER_AMT | | \ ' | | D_DISCOUNT) ; 

END LOOP; 



UTL_FILE. FCLOSE (V_FileHandle) ; 

END; 
/ 
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— Code Generation Completed 



[0066] The above has thus described a method of recovering design information of a legacy application program 
using a common set of tokens to represent corresponding elements of a plurality of different application programs which 
are in the same or in different languages, and using a set of the tokens relating to a particular legacy application pro- 
gram to display aspects of the legacy application program or to construct another application program in the same or in 
a different language which is similar to or is modified from the legacy application program. 

[0067] A person understanding this invention may now conceive of alternate embodiments and enhancements using 
the principles described herein. All such embodiments and enhancements are considered to be within the spirit and 
scope of this invention as defined in the claims appended hereto. 

Claims 

1 . A method of recovering design information of a legacy application program comprising: 

(a) parsing an application program to obtain plural parsed program parts, 

(b) storing plural tokens which are common to similarly functioning program parts of various computer lan- 
guages in a database, 

(c) mapping the parsed program parts to corresponding ones of the common tokens in the database, and stor- 
ing the map in the database, and 

(d) using the mapped tokens to generate a modified legacy application, a new application in a same language 
as the legacy application, a new application in a language different from the legacy application, or for display 
of aspects of the legacy or new application via a user interface. 

2. A method as defined in claim 1 , in which the modified legacy application or either new application contains substan- 
tially the same objects, methods and business rules as contained in the legacy application program, devoid of syn- 
tax specific aspects thereof. 

3. A method as defined in claim 1 including storing a distinct knowledge database for each of plural program lan- 
guages, and using one of the knowledge databases and a corresponding one of plural parsers to carry out the pars- 
ing step in respect of a source code language used in the legacy application. 

. A method as defined in claim 3, in which the step of storing the map includes selecting ones of the common tokens 
which correspond to parsed program parts and storing copies thereof in a separate database or record related to 
the legacy application program. 

. A method as defined in claim 3, in which the step of storing the map includes selecting ones of the common tokens 
which correspond to parsed program parts and storing pointers to the selected ones of the common tokens in a 
separate database or record related to the legacy application program. 

. A method as defined in claim 1 including searching the mapped tokens for a particular string, and generating a 
modified legacy application using a modified string in place of the particular string. 

. A method as defined in claim 6 in which the particular string is comprised of a two character year designation, and 
substituting a four character year designation in place of the two character year designation as the modified string. 

. A method as defined in claim 1 in which the database is a relational database. 

. A method of recovering design information of a legacy application program comprising using a common set of 
tokens to represent corresponding elements of a plurality of different application programs which are in the same 
or in different languages, and using a set of the tokens relating to a particular legacy application program to display 
aspects of the legacy application program or to construct another application program in the same or in a different 
language which is similar to or is modified from the legacy application program. 
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10. A method of recovering design information of a legacy application program comprising translating the legacy appli- 
cation program into tokens representing elements of the program, and automatically rewriting the legacy applica- 
tion program using the tokens to define elements to be included in the rewritten program. 

11. A method as defined in claim 10 including rewriting the legacy application program in a computer language which 
is different from that of the legacy application program. 

1 2. A method as defined in claim 1 0 including modifying at least one parameter of the legacy application program prior 
to or as it is being rewritten. 
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